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SCRIPT OF MAIN TOOL BOOK PROGfIaM " 



handle goback 
send back 
end 



to handle enterPage 
system LONG.PERIOD 

get SetTimer(SysWindowHandle, 10110, 7000, 0) 

get SetTimer(SysWindowHandle, 10111, 600)0, 0) 

put 0 into LONG_PERIOD 
» get EatClicksO 
end 

to handle leavePage 

system DVICAP.VIDEO READY.REPE VT VI )EO,VID l EO PRIME.VIDEO SHOW 

if DVICAP is true then 

set sysSuspend to fals<3 

get tbkMCIfclose AVSFile M , ,,,, ) 

hide rectangle "dvi" 

set sysSuspend to true 

end if 

get KilI7imer(SysWindowHandle ( 11110 
get KillTimer(SysWindt //Handle, 10111. 
put "paused" into VIDEO READY 
put false into REPEAT /IDEO 
put false into VIDEO P\{\ME 
put false into VIDEO_SI IOW 
end 

to get EatClicks 

local wFlags.dwBytes.cnt.hlV sg.lpMsg 

set wFlags to 0 ~ Gl ibalAlloc flags 

set dwBytes to 32 - si2 j of MSG structure, with room to spare 
set hMsg to GlobalAlloc(wFl£ js.dwBytes) 
if hMsg = 0 or hMsg = -ull 
return -1 

end 

set IpMsg to GlobalLoc :(hMsj > 
if IpMsg » 0 

get GlnbalFree hMsg) 

return -1 

end 

- Call Windows PeekM^ssage function to remove the 

- messages we don't want 
set cnt to 0 

Mouse clicks 

while PeekMessage(lpMsg,sysWindowHandle t 51 2,521,1) <> 0 
increment cnt 

end 

- Keyboard clicks 

while PeftkMessaseOpMcg.sycWiP.cSowhland^^SS,^,!) o> 0 
increment cnt 
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end 

Menu Accelerators 
while PeekMessage(lpMsg,sysWindowHandle,11 1,1 12,1) <> 0 
increment cnt 

end 

get GlobalUnlock(hMsg) 
get GIobalFree(hMsg) 
return cnt 



Functi m to generate timers needed in the system 



to handle WMJTIMER hwnd, winMsg, wp, Iplo, Iphi 
conditions 

when wp"10110 - short timeout 

get KillTimer(sysWindowHandle, 10110) 

send"shorTimeOut to this page 
when wp- 10111 long t<meout 

get KiIITimer(syi WindowHandle, 10111) 

send long TimeOut to this page 
when wp = 10112 - Repeating message timeout 

get KillTiner(sysWindowHandle, 10112) 

send Rep^atingVideoTimaout to this page 
when wp = 101 13 timeout for timeout page 

get KillTir: er(sysWindowHandle, 10113) 

send Tinu outPageTimeout to this page 
end - condi-ions 
end 

to handle lonr.TimeOut 
if sysLevel is reader then 

system LONG_PERIOD 

if LONG_PERIOD > 2 
go to page "long timeout message" 

else 

get SetTimer(SysWindowHandle, 10111, 60000, 0) 
increment LONG_PERIOD 
end if 
end if 
end 

io handle shortTimeOut 
end 

to handle STOP 

fxwipe left normal to page "stop message" 
end 

to handle keyChar key 
system MYSTATE 
if the key is keyescape then 

if MYSTATE is null then 

senH lonklt 

put "locked" into MYSTATE 
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else 

send unLocklt 
clear MYSTATE 
end if 
end if 
end 

to handle tbkMMNotify p1,p2,p3 

system REPEAT_VIDEO, VIDEO_PRIME, VIDEO_SHOW 

if p1 is "S jccessful" 
conditi ms 
when p2 is "play" 

if REPEAT_VIDEO is true 
if VIDEO_PRIME is true 
if VIDEO_SHOWistrue 

send DisplayVideoWindow ~" ' ~" 

else 

get bringWindowToTop(sysWindowHandle) 
end 

get tbkmci("seek avsfile to start","") 
else 

get bringWindowToTop(sysWindowHeidle) 
get tbKmci( M close AVSFile", "") 
end 

send finishTranslation to this page 
send StartVideoTimerto this page 
else 

get tbkmci("close AVSFile", "") 
end 

e id 
end 
end 



Function to play back a video file 

to handle showDvi fileName, startFrame, stopFrame 
if (argCount = 1)then 

put 1 into startFrame 

put 0 into stopFrame 
end if 

if (argCount = 2) then 
put 0 into stopFrame 
end if 

system stylevalue,DVICAP,VIDEO_READY ( VIDEO_PRIME, VIDEO_SHOW 
if DVICAP is not true then 
beep 1 

put "playing" into VIDEO_READY 
break 
end if 

set sysSuspend to false 

if sty!?va!'jp null 
set stylevalue to 4096 popup 
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end if 

-open a new avs4 file 
set sysCursorto 4 
get tbkMCI("close avsFile","") 

get EnableHardwarelnput(O) 
hide group "help" of this page 
get tbkMCIchkfopen" && filename && "alias AVSFile wait", m, ( 1 ,1) 
show group "help" of this page 
set hDVIWnd to findWind ow("DigitalVideo Defaulf.O) 
if hDVIWnd is 0 or hDVI Wnd is null 

request "Couldn't find DVI window. Breaking handler." 

get tbkMCI("cIose AVSFile'V'") 

break to system 
end if 

set style to getWineowLongfliDVIWnd.-ie) 
set hiword to (style div 65^36) - 12*9 - 4096 

- 1219 is the de'ault style of the DVI window, 4096 is "visible" 
set loWord to style /nod 65536 probably zero, but ... 
set style to ((hiword -stylevalue)*65536) + loword 
gei setWindowLohg;hDVIWnd,-16,style) 



pu; bounds of rectangle "dvi" into the_rect 

pu; item 1 of the_re<"t into tbjeft 
put item 2 of the_rert into tbjop 
put item 3 of the_rect into tbjight 
put item 4 of the_rect into tb_bottom 

get xPixelsFromUnits (sysMagnification, tbjeft) 
put it into winjeft 

get xPixelsFromUnits (sysMagnification, tbjight) 
put it into winjight 

get yPixelsFromUnits (sysMagnification, tbjop) 
put it into winjop 

get yPixelsFromUnits (sysMagnification, tbjDOttom) 
put it into win_bottom 



set n Width to winjight - winjeft 
set nHeight to win_bottom - winjop 



get mdveWindow(hDVIWnd,winJeft+8 l winJop+40 l nWidth,nHeight I 1) 
get tbkMCIchk("seek AVSFile to" && startFrame/'M) 

get tbkMCIchkfwindow AVSFile state show'7"\1,1) 

get EnableHardwarelnput(l) 

set syscursor to 1 
if stooFr^T.c = C th^n 
gettbkMCIchk("play AVSFile",self,1 ,1) 
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else 

get tbkMCIchkfplay AVSFile to" && stopFrame,self,1 ,1) 
end if 

get yieldAppO 
set sysSuspend to true 
end 

to handle primeDvi fileName 

system stylevalue,DVICAP.VIDEO_READY ) VIDEO_SHOW 

if DVICAP is no 1 true then 
beep 1 

put "playing" ;nto VIDEiO_READY 
break 
end if 

set sysSuspend ?.o false 

ifstytevaijeisp.il! - '~ " *■ 

set styievalue to 4096 popup 
end if 

-open a new av^4 file 

set sysCu sor to 4 

get tbkMC Ifclose avsFile","") 

get tbkMC chkC'open" && filename && "alias AVSFileW ,1) 
set hDVIWnd to findWindowfDigitalVideo Defauir.O) 
if hDVlWn-J is 0 or hDVIWnd is null 

request "Couldn't find DVI window. Breaking handler." 

get tbkMCI("c!ose AVSFile","") 

break tr system 
end if 

set style tc getWindowLong(hDVIWnd,-16) 

set hiword to (style div 65536) - 1219 - 4096 

-1219 is the default style of the DVI window, 4096 is "visible" 

set loWord to style mod 65536 probably zero, but ... 

set style to ((hiword+stylevalue)*65536) + loword 

get setWindowLong(hDVIWnd,-16,style) 

put bounds of rectangle "dvi" into the_rect 

put item 1 of the_rect into tbjeft 
put item 2 of thejrect into tbjop 
put item 3 of the_rect into tbjight 
put item 4 of thejrect into tb_bottom 

get xPixelsFromUnits (sysMagnification, tbjeft) 
put it into winjeft 

get xPixelsFromUnits (sysMagnification, tbjight) 
put it into win_right 

get yPixelsFromUnits (sysMagnification, tbjop) 
put it into win_top 

get yPixelsFromUnits (sysMagnification, tbjxrttom) 

P 11 * it into wfP_hnttnm 
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set nWidth to winjight - winjeft 
set nHeight to win_bottom - winjop 



get moveWindow^DVIWnd.winJeft+S.winJop+^.nWidth.nHeight.l) 

ifVIDEO_SHOW is true 

get tbkMCIchkfseek AVSFile to start M , H " t 1) 

get tbkMCIchkCwindow AVSFile state show' , l MM ,1,1) 

send DisplayVideoWindow 
else 

get bringWindowToTop(sysWindowHandle) 
end 

set syscursor to 1 
set sysSuspend to true 
end 

to handle playPrimedVideo 
set hDVIWnd to fmdWind >w( H DigitaIVideo Defaulf.O) 
get bring VindowToTop(hi)VIWnd) 

get tbkMOIchkfplay avsfi 3",self f 1,1) 
get yield/ ppO 
end 

to handle D; iplayVideoWind- w 

set hDVIWnd to findWindcwC'DigitalVideo Default*\0) 

get bringWindowToTop(h[ VlWnd) 
end 

to handle SetStyle pValue 

set style to getWindowLong(sysWindowHandle,-16) 
set hiWord to style div 65536 replaced 7" operator with "div" - DRL 4/6/92 
set loWord to style mod 65536 
increment hiWord by pValue 
set style to (hiword * 65536) + (loWord) 
get setWindowLong(sysWindowHandle f -1 6 t style) 
hide mainwindow 

set bounds of mainwindow to bounds of mainwindow 
send sizeToPage 
show mainwindow 

set style to getWindowLong(sysWindowHandle,-16) 
end 

to handle locklt 
send setStyle -64-4 
hide menuBar 

set the size of this book to (6.65*1 440),(4.98*1 440) 
send sizeToPage 

set the position of mainWindow to 0,0 
set sysCursorto none 
get showCursor(O) 

end 
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to handle unLocklt 
send setStyle 64+4 
show menuBar 

set the size of this book to (6.5*1440),(4.5*1440) 
send sizeToPage 

set the position of mainWindow to 0,0 
set sysCursor to 1 
get showCursor(l) 
end 



to handle enterbook 

system DVICAP.ViDEO. ^EADY,REPEAT_VIDEO,DOOR_OPENED,COM_NUMBER 
system 

CARDJNSiDE,COM£RCIA;_,COMPORT;METERJDATC^ * 

INVOICE_TRANSFERED,TRANSFERJN_PROGRESS,CREDIT_TRANS_LIMIT ( PACKAGE._P 
OS METER,\ 

PACKAGE_SDE_FULL } 
pi M into COMERUAL 

put false into CARl HNSIDE ; 
pu 1 into COMPO- IT ? : 
put 1 into COM_Nl MBER 5 
se' sysLockScreen :o true { 

set sysSuspe* d to false ! : 

put true into DOOR_OPENED 

put true into P *CKAGE_POS_METER * 
pu; false into PACK ^GE_SIDE_FULL : 
put false into METE R_DATE_CHANGED : 
put true into FILES TRANSFERED 
put true into INVOIOE_TRANSFERED 
put false into TRANSFERJN PROGRESS 
put "35.00" into CREDIT JTtANSJJMIT 
clear sysError 
linkDLL "zipfunct.dll" 

int write_output( byte, byte, byte ) 
int read_input(BYTE) 
int checkJetterO 

int move_sm(int, WORD, int, int, int, int, byte) 
int reset_motor(INT) 
int init_scaleO 

BYTE zero_scale(BYTE,BYTE) 
DOUBLE find_weight(BYTE, STRING, BYTE) 
int prt_readyO 
BYTE~check_sum(STRING) 
LONG exp_net(LONG, INT) 
end 

linkDLL "credcarxj.dll" 

int MCRInit(INT) 
int MCRCIearO 

in* MCRDat^P.erjdyO 

int MCRGetData(STRING, STRING) 



Function to initialize system variables and resources 
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int CCInit(!NT, INT, INT, STRING.STRING.STRING) 

int CCParseTrack1( STRING, STRING, STRING, STRING, STRING) 

int CCVerify(STRING) 

int CCApprove(STRING, STRING, STRING, STRING, STRING) 
int CCSave(STRING ( STRING, STRING, STRING, STRING) 
int CCCaptureO 
int CCSendFile(STRING f STRING) 

end 

linkDLL "metertrv.dll" 

int stamp_strip_print(STRir !G) 

int stamp_onJetter(STRIN:5) 

int set_meter_date(STRING) 

int ReadAscendingRegistei .STRING) 

int ReadDescending^egiste ^(STRING) 

int AddMoneyToMeter(STR NG, STRING) 

INT InitMeterCommi NT) 



linkDLL "billdrv.dir 
INT BAStateCh ingedO 

INT BAAcceptEnable POINTER) 
INT 3AStackBill(POII ITER) 
INT RAAcceptDisable [POINTER) 
INT * iACheckState(B TE) 
INT HACheckStacken BYTE) 
INT r.iACheckBillValiK (BYTE) 

end 

linkDLL "rcptdrv.dll" 

int pr,ntReceiptLine(S";*RING) 

end 

linkDLL "z4ctoolb.dll" 

int z4toolbook(STRING, STRING, STRING, STRING.STRiNG, STRING, STRING, 

STRING) 
end 
linkdll "user 

word findWindow(string.dword) 

word setActiveWindow(word) 
INT moveWindow(WORD, INT, INT, INT, INT, WORD) 
word getWindowWord(word,int) 
dword getWinuowlong(word,int) « (hwnd.nlndex) 

dword setWindowlong(word f int,dword) - (hwnd,nlndex,wNewWord) 

int getWindowRect(word,pointer) 

word createWindowCstring.string.dword.int.int.int.int.word.word.word, pointer) 
word createWindowCstring.string.dword.word.word.word.word.word.word.word.pointer) 
int showWindow(word,int) 
INT DestroyWindow(WORD) 
INT KillTimer(INT t INT) 
INT SetTimer(INT t INT, WORD, DWORD) 
int bringWindowToTop(WORD) 
int showCursor(int) 

INT PeekMessage(POINTER 1 WORD,WORD ( WORD,WORD) 
INT eyitWin'1o\7S(DWOr?D,WORD) 



'end 



end linkdll 
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linkDII "tbkfile.dll" 
INT fileExists(STRING) 
INT copyFile(STRING, STRING) 
end 

linkDLL "tbkwin.dir 
STRING screenFromPage (WORD, STRING, INT, STRING) 
STRING clientFromPage (STRING, INT, STRING) 
int yieldappO 

INT xPixelsFromUnits(INT.INT) 
INT xUnitsFroriPixels(INT,INT) 
INT yPixelsFrc ■nUnits(INT.INT) 
INT yUnitsFromPixels(INT,INT) 

end 

if sysError is not null th ,n 
put false into D' 'ICAP 
else 

- put TRUE Into [ VICAI 
end if 

! inkdll "kernel" 

word glo;>alAlloc(word,dword) 

pointer g obalLock(word) 

word glooalUnlock(word) 

word gloi alFree(word) 
end linkdll 
inkdll "tbkdlg.dir 

string dia:og(string,string) 

string opr ndlg(string,string,string,string) 

string setValue(string, string, string) 

string get/alue(string, string) 
end linkdll 

linkdll "TBKDB3.DLL" 

INT closeAIIDBFilesO 

INT createDBIr,dexFile(STRING, STRING, WORD, WORD) 

INT deleteDBFile(STRING) 

INT findDBKey(STRING) 

INT firstDBKeyO 

INT firstDBRecordO 

STRING getDBDateFormatO 

STRING getDBErrorString(INT) 

S I'RING getDBFieldValue(STRING) 

INT getDBKeyTypeO 

STRING getDBKeyValueO 

INT getDBNavigateToDeletedO 

LONG getDBRecordCountO 

INT getDBRecordDeletedO 

LONG getDBRecordNumberO 

INT gotoDBRecord(DWORD) 

INT lastDBKeyO 

INT lastDBRecordO 

INT nextDBKeyO 

INT nextDBRecordO 

INT opcn.nBF!!e(GTR!N<3) 

INT openDBIndexFile(STRING) 
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INT packDBFileO 

INT previousDBKeyO. 

INT previousDBRecordO 

INT reindexDBFile(STRING) 

INT removeDBRecords(DWORD, DWORD) 

INT selectDBIndexFile(STRING) 

INT setDBFieldValue(STRING, STRING) 
INT setDBNavigateToDeleted(INT) 

INT setDBRecordDeleted(WORD) 

INT writeDBRecorti(DWORD) 
end linkdll 

translateWindowMessage 
after 275 send WM_TIMER 
end 

put "paused" into VIDEO_READY 

put false into REPEATJ/IDEO - ~ ' ~* ' ~ 

get tbkmci("open c:\p ielect\backgmd.c:vs ali: ,s bfile", "") 

set sysSuspencI to true 
send locklt 

put "locked" into MYSTATE 
send getLocationParameters 

set sysTimeFoi • nat to "seconds" 

set sysLockScr. en to false 
send creditCardlnitia .ze 
send modemlnitializt 
send getMeterBalanr- 5 
put sysWindowHandie into mainWinHcndle 
get InitMeterComm(mainWinHandle) 
end 



Function to initiate shutdown 



to handle leavebook 

set suspend to syssuspend 

set syssuspend to false 

get tbkmciC'cIose AVSFile","") 

unlinkDLL "tbkwin.dll" 

unlinkDLL "kernel.ail" 

unlinkDLL "tbkdlg.dll" 

unlinkDLL "zipfunct.dll" 

unlinkDLL "credcarti.dll" 

unlinkDLL "zipcard.dll" 

unlinkDLL "meterdrv.dll" 

unlinkDLL "billdrv.dll" 

unlinkDLL "user 
« unlinkDLL "rcptdrv.dll" 

set syssuspend to suspend 

show menubar 

restore system 

end 

U.S. Express Mail No. EG 532 186 526 US^ 



J 



Page-11 

to handle buttonDown 
if "button" is in target or "field" is in target then 
put the fillcolor of the target into temp 
set the fillcolor of the target to magenta 
pause 20 ticks 

set the fillcolor of the target to temp 
beep 1 
end if 
end 

to handle StartVideoTimer 
end 

to handle finishTranslation 
end 

to handle RepeatingVideoTimeout 
end 



Function to get locatioi parameters and system settings 



to handle getLocat'onParameters 
system 

MACHINE_NUMBr.R,LOCATION_? AME,LOC_STREET_ADDRESS,LOC_CITY,LC.iC_STATE 
system LOC.ZIP JODE.PAYMEN •_TYPE,FIRSTCLASS_MARKUP,CERTIFIED_"1ARKUP 
system 

INTERNATIONAL_MARKUP,EXPR:SS_MARKUP,PRIORITY_MARKUP,PARCEL. MARKUP 
system 

PICKUP TIME,FIRST_PHONE,SECOND_PHONE, MERCHANT ID.FILE TRANSFER.TIME 
system DAY_OF_FILE_TRANSFEf?,HOST_MODEM_NUMBER,CARD_PROCESSING_FEE,\ 
STAMP_BOOK_PRICE,STAMP_BOOK CHARGE,MIN_METER BALANCED 
TMS_METER_AMOUNT,CRED_SEND_DATE 

get openDBFile("c:\pielect\uspsfile.dbf) 
get firstDBRecordO 

put getDbFieldValue("SERIALNUM") into MACHINE.NUMBER 

put getDbFieldValue("COMPNAME") into LOCATION.NAME 

put getDbFieldValue("STREET1") into LOC_STREET_ADDRESS 

put getDbFieldValuefCITYNAME") into LOC_CITY 

put getDbFieldValue("STATE") into LOC_STATE 

put getDbFieldValuefPARMZIP") into LOC_ZIPCODE 

put getDbFieldValue("PMT_TYPE") into PAYMENT TYPE 

put getDbFieldValueC'LTR.MU") into FIRSTCLASSJWARKUP 

put getDbFieldValue("CERT_MU") into CERTIFIED MARKUP 

put getDbFieldValue("INTNL_MU M ) into INTERNATK)NAL_MARKUP 

put getDbFieldValue("USPSEXP_MU") into EXPRESS MARKUP 

put getDbFieldValue("USPSPRI_MU n ) into PRIORITY ^MARKUP 

put getDbFieldValue("USPS4TH_MU") into PARCEL_MARKUP 

put getDbFieldValue("LASTTIME") into PICKUP_TIME 

put getDbFieldValue("FST_PHONE") into FIRST PHONE 

put getDbFieldValue("SND_PHONE") into SECOND.PHONE 

put getDbFieldValue("MERCH_ID") into MERCHANT ID 

put getDbFieldVpl.|fiCTRANS_T!MZ ,, ) into FILE Tr^NSFER TIME 

put getDbFieldValue("TRANS_DAY") into DAY_j6f_FILE_TRANSFER 
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put getDbFieldValuefHOSTPHONE") into HOST_MODEM_NUMBER 
put getDbFieldValuefSTAMPPRICE") into STAMP_BOOK_PRICE 
put getDbFieldVaIue("STAMPCHRG") into STAMP_BOOK_CHARGE 
put getDbFieldValue("MIN_METER") into MINJVIETER BALANCE 
put getDbFieldValue("TMS_METER") into TMS_METER_AMOUNT 
put getDbFieidValue("CRED_DATE") into CRED_SEND_DATE 

get closeAIIDBFilesO 

put 0.0 into CARD_PROCESSING_FEE 

end 

to get IsLeapYear y 

if (y mod 4 = 0 and y mod 100 <> 0) or (y mod 400 = ( ) 

return TRUE 
end 

return FALSE 
end 

to get DayOfTheWe-ek d, m, y - SUN to SAT -> 1 to 7 
local mFactor 

if IsLeapYear(y) 

set mFactor to "034025036146" 
else 

set mFactor to "1 440250361 ^S" 
end if 

clear chars 1 to 2 of y 

get (y + (y div 4) + character m *>f mFactor + d) r. tod 7 
if it is 0 

return 7 
end 

return it 
end 

to get next_pick_up_date 

set sysDateFormat to "m.d.y" 
put sysDate into nextPickupDate 
do 

format date nextPickupDate as "seconds" from "m.d.y" 

increment nextPickupDate by 86400 

format date nextPickupDate as "m ( d,y" from "seconds" 

put is_holiday(nextPickupDate) into holiday 

put is_sunday(nextPickupDate) into Sunday 
until ( (holiday = 0) and (Sunday <> 1) ) 
return nextPickupDate - as "m.d.y" 
end 

to get isjioliday theDay 
get openDBFile("c:\pielect\holiday.dbf) 
get openDBIndexFile("c:\pielect\holiday.ndx") 
format date theDay as "m/d/yy" from "m.d.y" 
put findDBKey(theDay) into keyFound 
get closeAIIDBFilesO 
if (keyFound = 1) 

return 1 a holiday 
e!c2 --— ■ 

return 0 - not a holiday 
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end if 

end 

to get is_sunday theDay 
set currM to item 1 of theDay 
set currD to item 2 of theDay 
set currY to item 3 of theDay 

put DayOfTheWeek(currD, currM, currY) into daynumber 
return daynumber - 1 -> Sunday 
end 

to get strWeekDayName n 

return item n of ' , Sun t Mon,Tue 1 Wed ( T:iu,Fri,Sat" 

end 

to handle creditCardlnitialize 
system COMPORT 

if (MCRInit(COMPORT)<>0)lhen - - - ~ 

send post_error "1 "."Unable to Initialize Crt-dit Card deader" 
end if 
end 



Function to close package c'oor after verifying the weight and machine full < ondition 



to get TakePackage 
system DOOR_OPEK ED 
if DOOR_OPENED = .rue then 
if sysLevel is reader then 
put false into OOOR_OPENEC 
get reset_moior(2) - close package door 
end if 

end if 

Drop the package by tilting the package dump 

get write_output(5, 0, 0) 

get write_output(6, 1, 0) 

pause 5 seconds 

get readjnput(16) 

if it is 1 then machine full 
system PACKAGE_SIDE_FULL 
put true into PACKAGE_SIDE_FULL 
return 0 

end if 

get write_output(6 ( 0, 0) 
get write_output(5, 1 , 0) 
return 0 
end 



Function to check the stationary in the machine 

to get check_stationery 
get openDBFile( M c:\pielect\counters.dbn 
put getDbFieldValueCMETERSTRIP") into num strips 
put getDbFieldValueC'RCT.CCUNT") into n^m Jecciptt, 
put getDbFieldValue("LBL_CQUNT M ) into numjabels 
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get closeAIIDBFilesO 
if (num_strips = 0) then 

return 1 
end if 

if (num_receipts = 0) then 

return 2 
end if 

if (numjabels = 0) then 

return 3 
end if 
return 0 

end 

to handle updateReceiptCounter pagesPrinted 
get openDBFile("c:\pielect\counters.dbf') 
put getDbFieldValue("RCT_COUNT") into num_rec ipts 
get setDbFieldValuefRCT.COUNr.Cnum^eceipts pagesFYinted)) 

get writeDBrecord(l) 

get closeAIIDBFilesO 

end 

to handle updateMeterStrips 
get openDBFile( H c:\pielect\counters.dbf") 
put getDbFieldValue("METERSTRIP") into num_strirs 
get setDbFieldValue("METERSTRIF ",(num_strips-1) 
get writeDBrecord(l) 
get closeAIIDBFilesO 

end 



Function to find the meter balance 



to handle getMeterBalance 
system METER_BALANCE 
put " " into descend_register 

put ReadDescendingRegister(descend_register) into meter_status 
if (meter_status >0) then 

put 0 into METER_BALANCE 

send post^error ^"."Postage Meter Failed To Initialize" 
else 

put descendj-egister into METER_BALANCE 
end if 
end 

to handle post_error pageBackFromError t error_message 
system variable BACK_FROM_ERROR 
set sysHistoryRecord to false " 
put pageBackFromError into BACK_FROM_ERROR 
set sysHistoryRecord to false ~ 
pause 30 

go to page "error message" 

put errorjnessage into the text of field "error message" 
end 



Function to do automated TMS money transfer 
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to get maintain_meter_account backFromErrorMessage 
system METER_BALANCE,TMS_METER_AMOUNT 
put " " into descend_register 
put " " into TmsAmount 
put TMS_METER_AMOUNT into TmsAmount 
show field "Adding More Money" 

put AddMoneyToMeter(TmsAmount, descend_register) into money_status 
hide field "Adding More Money" 
if (money_status >0) then 

put "Postage Meter Malfunction During Money Transfer" &\ 
CRLF & "Error #:" & money_status into errorMsg 

send post_error backFromErrorMessage.errorMsg 

return 0 
else 

put descend_register into METER_BALANCE 
return 1 
end if ' 
end 



Function to initialize modem for inforr otion transfer 



tc handle modeminitialize 
system FIRST.PHONE.SECON^PHONE.MER* iHANTJD 

if (CCInit(3, 1200, 1, FIRST_PHONE, SECOND. 'HONE, MERCHANTJD) <> 0) then 

send post_error TV'Unable to initialize Modem For Credit Card Use" 
end if 
end 



Function to credit card usage summery batch transfer 

to get updateCaptureFile 
system 

CREDCARD_BALANCE,TRACK2DATA,BACK_FROM_ERROR,APROVAL_CODE,CC_ERROR 

A 

CC_MESSAGE,CREDIT_TRANS_LIMIT,CARD_PROCESSING_FEE,CARD_AMOUNT_USED 

put (CARD_AMOUNT_USED + CREDITTRANSJJMIT + CARD_PROCESSING FEE - 
CREDCARD_BALANCE) into amount 

put sysnumberformat into originalFormat 
set sysnumberformat to "##0.00" 
format amount as sysnumberformat 
set sysnumberformat to originalFormat 

if (CCSave( TRACK2DATA, amount, APROVAL_CODE, CC_ERROR, CC.MESSAGE ) <> 0) 
then 

return 0 - failure 
else 

return 1 - success 
end if 
end 
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to handle writeZipcardBalance 
system ZIPCARD_BALANCE 
put sysnumberformat into originalFormat 
put ZIPCARD_BALANCE*1000 into balance 
set sysnumberformat to "000000" 
format balance as sysnumberformat 
set sysnumberformat to originalFormat 
if ( write_balance (balance) = 0) 
if ( write_balance (balance) = 0) 
get eject_card0 

se id post_error "1 "."Unable to write balance on Zipster Card" 
br sak giveCard 
end if 
end if 
end 



Function to rotate the postage meter from leter to package r osition 

tc get meterToPackagePosition 
.ysten. PACKAoE_POS_METER 
nut true into PACKAGE_POS_METER 
ijet readJnput(IO) check package position micro switch 
; : it is 1 then not in package position 

get write_output(8, 0, 0) - move the meter assembly back 

put 0 into loopCount 

while (read_input(11) <> 0) - wait until translation micro switch is hit 

get yieldAppO 

increment loopCount 

if loopCount = 5500 
return 1 

end if 
end while 

get reset_motor(3) - move meter to package position 
put 0 into loopCount 

while (read_input(10) <> 0) wait until package position reached 

get yieldAppO 

increment loopCount 

if loopCount = 5500 
return 2 

end if 
end while 

if read_input(14) is 1 then no meter strips available 
return 2 
end if 

get write_output(8, 1,0)- move the meter assembly to the front 
end if 

if read_input(14) is 1 then - no meter strips available 

return 2 
else 

return 0 
end if 
end 
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to rotate meter from package to letter position 



to get meterToLetterPosition 
system PACKAGE_POS_METER 
if PACKAGE_POSJVIETER is true 
put false into PACKAGE_POS_METER 
get readjnput(9) check letter position micro switch 
if it is 1 then » not in letter position 
get write_output(8, 0, 0) move the meter assembly back 
put 0 into loopCount 

while (readjnput(1 1) <> 0) wait until translation mic o switch is hit 

get yieldAppO 

increment loopCount 

if loopCount = 5500 
return 1 

end if 
end while 

getTeset_motor(1) move'meter to letter positi on 
get move_sm(1 , 10200, 1 , 60, 10, 1 , 0) move mete ** to letter position 
out 0 into loopCount 

while (read_input(9) <> 0) wa:t until letter posh'on reached 

get yieldAppO 

increment loopCount 

if loopCount = 5500 
return 2 

end if 
end while 

get write_output(8, 1,0) mo*e the meter asst mbly to the front 
end if 
else 

get write_output(8, 0, 0) move Lhe meter assembly back 
end if 
return 0 
end 



Function to drop stamp books 



to get dispenseStamp numBooks 
step i from 1 to numBooks 
if (read _input(1 3) = 0) - out of stamps 
system STAMP_HOLDER_EMPTY 
put true into STAMP HOLDER_EMPTY 
end if 

get write_output(7, 1,0) - drop stamp hold gate 

pause 50 ticks 

put 0 into loopCount 

while (read_input(12) <> 0) wait until stamp is dispensed 
get yieldAppO 
increment loopCount 
if loopCount = 5500 

get write_output(7, 0, 0) « raise stamp hold gate 
return 1 
end if 
enc 1 while 

get write_output(7, 0, 0) » raise stamp hold gate 
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pause 2 seconds 
end step 
return 0 
end 



Script of front welcome page 



to handle enterPage 

system REPEAT_VIDEO, DOOR_OPENED,CARDJNSIDE,MULTIPLE_PACKAGES 

put the u liqueName of this page into sysHistory 

set sysHi ;toryRecord to true 

put true i ito REPEAT_VIDEO 

put false «nto MULTIPLE_PACKAGES 

if 1 )OOR OPENED = true then 

if sysLevel is reader then 

put false : nto DOOR_OPENED 
* jet reset_Tnotor(2) - close package door """* "~ 

erd if 

enc< if 

if n .eterToLetterPositionO <> 0 

s 5nd pcst_error ' 1",The machine is temporarily out of order (met^r rotation failed)." 
em if 

sei d checkMachinaFull 
sei i checkStampEmpty 
ser j StartVideoTirner 
end 

to hindle leavePage 

system F I RST_LETTER , Fl RST_P ACKAG E 

put true into FIRST_LETTER 

put :rue into FIRST_PACKAGE 

get .<illTimer(sysWindowHandle, 10112) 

sho*v group "go back" of this background 

show group "stop" of this background 

forv.ard 

end 



function to play differtent help videos and commercials during the idle time 



to handle RepeatingVideoTimeout 
system COMERCIAL,METER_BALANCE,MIN METER_BALANCE 
~MIN_METER_BALANCE = 200000 -> $200 
get meter_date_change() 
get InformationTransferO 

if (METER BALANCE > MIN METER BALANCE) then - meter balance greater than 
M I N_M ETE R_B ALANC E 

system vidFileToPlay 
conditions 
when COMERCIAL = 1 
put 2 into COMERCIAL 
put "d:\pielect\firstcls.avs B into vidFileToPlay 
when COMERCIAL = 2 
put 3 Into COMSRCIAL 
put "d:\pielect\package.avs H into vidFileToPlay 
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when COMERCIAL = 3 
put 1 into COMERCIAL 

put "d:\pielect\stamcash.avs" into vidFileToPIay 
end conditions 

send buttonUp to rectangle "dvi" - play the corresponding video file 
else 

get maintain jneter_account("1 ") 
end if 
end 

to handle StartVideoTimer 
get Y illTimeout(sysWindowHandle,10111) 
get LetTimer(sysWindowHandle, 10112, 3000, 0) 
end 



to handle shortTimeOut 
get K IH1meout(sysWindowHtfndle ( 1 01 1 1) 
end 

to handle idle 

get killTimeout(sysWindowHand)e,10111) 

forward 
end 



Function to change meter date afte. pickup time 



:o get meter_date_change 
system METER_DATE_CHANGED,PICKUP_' IME 

checking for pick-up time 
set sysTimeFormat to M hh24min" 
put sysTime into currentTime 

if( (currentTime > 0001) and (currentTime < PICKUP TIME) )then 
put false into METER_DATE_CHANGED 
end if 

if( (currentTime > PICKUPJRME) and (METER_DATE_CHANGED = false) )then 
put next_pick_up_date() into nextDate 
format date nextdate as "yymmdd" from "m.d.y" 
put set_meter_date(nextdate) into date_status 
if (date_status >0) then 
return 0 

send post_error "1 "/'Postage Meter Malfunction during date change" 
else 

put true into METER_DATE_CHANGED 
return 1 
end if 
end if 
return 1 
end 

to handle check_supplies 
if (check_stationeryO > 0) then 

send oost_error "1 "/'Paper supplies need to bs restocked." 
end if 
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end 



Function to transfer transaction information every week 



to get InformationTransfer 
system 

FILE_TRANSFER_TIME,FILES_TRANSFERED t DAY OF FILE TRANSFER,INVOICE_TRANS 
FERED 

set sysTimeForma* to M hh24min" 
put sysTime into ct rrentTime 
if (cu rrentTime > 2 J00) then 

put false into FILHS TRANSFERED 

put false into INVOICEJTRANSFERED 
end if 

if( (currents ne > HLEJTR/.NSFER TIME) and\ 
(cuitentTi Tie < ?DO0) and (FILESJTRANSFERED = false) )tfien ~* ' 
show field "Trans'ering Crodit Files" 
step i from 1 to 5 
if (CreditinformationTransferO = 0) then 
break slap 
end if 
end step 

hide field ransfering Credit Files" 
put true int: FILES JTRANoFERED 
end if 

- invoice transfer to host 
set sysDateF-irmat to "m.d.y" 
put sysDate into today 
set currM to i-sm 1 of toDay 
set currD to it 3m 2 of toDay 
set currY to item 3 of toDay 

put DayOfThfcWeek(currD, currM, currY) into daynumber 
if (daynumber = DAY_OF FILE_TRANSFER) then 
if( (currentTime > FILEJTRANSFER_TIME) and\ 
(currentTime < 2000) and (INVOICEJTRANSFERED = false) )then 
show field "Transfering Data Files" 
step i from 1 to 5 
if (InvoicelnformationTransferO = 0) then 

break step 
end if 
end step 

hide field "Transfering Data Files" 
put true into INVOICEJTRANSFERED 
end if 
end if 
return 0 
end 



Function to transfer credit card usage summery batch file 



to get CreditlnformationTransfer 
syctorv) F'l£S_TR.ANSFEPED 1 CRED_SEND_DATE 
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if (CCCaptureO <> 0) then 
return 1 

send post_error "1 "/'Failed to send Credit Card Information for Yesterday." 

else 

put true into FILESJTRANSFERED 
Update credit send date field 
set sysDateFormat to "m.d.y" 
put sysDate into today 
set CRED_SEND_DATE to item 2 of toDay 

get openDBFile("c:\pielect\uspsfile.dbf") 
get Tin tDBRecordO 

get se: DbFietdValue("CRED_DATE",CRED_SEND_DATE) 

get wmeDBrecord(l) 

get closeAIIDBFilesO 
e-d if 
return 0 
en;i 



Function for invoice information transfer 



to c 3t InvuicelnformationTransfer 
system HOST_MODEM_NUMBER,MACHINE_NUMBER t INVOICE_TRANSFERED 

pi "c:\pielect\po_" & chars 3 to 6 of MACHINEJMUMBER & ".dbf ito dataToHost 
ge copyFile("senumail.dbf\ dataToHost) 

if , :CSendFile(dataToHost, HOST_MODEM_NUN.BER) <> 0) then 
i<eturn 1 

» send post_error T'.Tailed to send Invoice Information for last week." 
els 3 

c-et copyFile("sendmail.sav", "sendmail.dbf) 

put true into INVOICE_TRANSFERED 
enci if 
return 0 
end 



Function to check machine full condition 



to handle checkMachineFull 
if (read_input(16) = 0) then - package side not full 
system PACKAGE_SIDE_FULL 
if PACKAGE_SIDE_FULL is true 
put false into PACKAGE_SIDE_FULL 
get write_output(6, 0, 0) 
get write_output(5, 1 , 0) 
end if 
end if 
end 

to handle checkStampEmpty 
system STAMP_HOLDER_EMPTY 
if (readjnput(13) = 0) - out of stamps 
put true into STAMPJHOLDERJEMPTY 
else 

put false into STAMPJHOLDERJEMPTY 
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end if 
end 

-dismiss the video window after it is played 
to handle finishTranslation 
system s_vidHandle 

set sysCursorto4 

untranslateAllwindowMessages for s_vidHandle 

get tbkMCIC'close vidFile"/"') 

clear s_vidHandle 
hide rectangle "dvi" 
send StartVideoTimer 

set sysCursorto ? 

end 



Script rfcredii card swipe screen 



to handle enterPage 
forward 

svstem NUM_TIM':OUT3 
p it 0 into NUM_T. VIEOUTS 
get MCRCIearO 

er\y\ 

«tt handle shortTin eOut 

-end showDvi "c:\pielect\credcard.avs" 
-end 

to handle idle 
forward 

put MCRDataReacyO into cardStatus 
if(cardStatus = 0) then 

hide field "Swiped Wrong" 

send takeCardTrackData 

break idle 
end if 

if (cardStatus = -2) then 

show field "Swiped Wrong" 
end if 
forward 
pause 40 
end 



Function to check the credit card number and if good to initiate authorization process 



to handle takeCardTrackData 
system TRACK1DATA.TRACK2DATA 

put" "into TRACK1 DATA 

put " "into TRACK2DATA 

if (MCRGetData(TRACK1 DATA, TRACK2DATA) <> 0) then 

send post_error "1 "."Unable to Read Credit Card Data" 
else 

if (CCVerify(TRACK2DATA) <> 0) then 
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send post_error 'T'.'The Card is expired. Please try another card" 
else 

system CREDCARD_SWIPED,FIRST_CRED TRANS 
put true into CREDCARD_SWIPED 
put true into FIRST_CRED_TRANS 
send getCreditCardApproval to the page "Credit card read" 
end if 
end if 
end 



Function to get credit card approval 



to handle getCreditC ardApproval 
system 

CREDCARD 3ALAf CE 1 TRACK2DATA,BACK_FROM_ERROR ) APROVAL_CODE l ( C_ERROR 
,CC_MESSAC,E 

system ~ " . ■ . 

CREDCARD_APPR( »VED,CPEDIT_TRANS_LIMIT,CARD_AMOUNT_USED,MERCf lANTJD 
put CREDIT TRAN 5_LIMIT into CREDCARD_BALANCE 
put 0 into CA^D_AMOUNT_USED 
put " " int. i APROVAL_CODE 
put " " into v:C_ERROR 
put " " into CCJUESSAGE 

put 32000 int. CREDCARD_APPROVED 
show field "G stting Approval' 

put CCAppro* e(TRACK2DATA,CREDCARD_BALANCE,APFOVAL_CODE, CO_ERROR, 
CC_MESSAGF- ) into CREDCARD_APPROVED 
if char 1 of Mr -RCHANTJD is "D" 

put 0 into C:*EDCARD_APPROVED 
else 

if (CREDCA^D_APPROVED <> 0) then second trial 
put CCApprove(TRACK2DATA,CREDCARD BALANCE,APROVAL_CODE, CC ERROR, 
CCJAESSAGE ) into CREDCARD_APPROVED " 

if (CREDCARD_APPROVED <> 0) then » third trial 
put CCApprove(TRACK2DATA,CREDCARD_BALANCE,APROVAL_CODE, CC ERROR, 
CC_MESSAGE ) into CREDCARD_APPROVED 
end if 
end if 
end if 

hide field "Getting Approval" 

if (CREDCARD_APPROVED <> 0) then failed third trial 

send post_error "1 "."Credit card authorization line is busy. Please try again" 
else 

send doSelectionAction 
end if 
end 

to handle doSelectionAction 
go to page "service selection" 
end 

to handle longTimeout 
system NUMJTIMEOUTS 
if Nil im_T'MFOUTS < 2 then 
increment NUM_TIMEOUTS 
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get SetTimer(SysWindowHandle ( 10111, 60000, 0) 
else 

forward 
end if 
end 

Script of transaction type selection screen 

to handle enterPage 
forward 

hide group "go back" of this background 
system 

ARTICLE_TYPE,CARD_TRANSAC i"ION,RATE_CATEGORY,LETTER READY_TO_GO,\ 
CERTIFIED.FEE.RETUR.vLREC EIPT_CHARGE,DEST_ZIPCODE,CERTIFIED_NUMBEP. ( \ 
NO^PICK.UP.PICKUP^T'ME.P/ YMENT METHOD.ZIPCARD^BALANCE.LABELJNDEXA 
CERTIFIED_NUMBER,IN'>URANCE_AM6uNT f PACKAGE_SIDE FULL.INQUIRY ONLY \ 
STAMP_HOLDER_EMPTr " " ~ '~ f ~' 

put "FIRSTCLASS" into RATE_CA1 EGORY 

put w " into DEST ZIPCODE 

put " ! into CERTIFIEDJNJUMBER 

put 0.00 into INSURANCE_Ar/IOUNT 

put 0.0 into CERTIFIED_FEE 

put 0.0 into RETURN RECEI: 5 T_CHARGE 

put "Letters" :nto ARTICLE T'PE 

put 0 into LA 3ELJNDEX 

put " ; into CERTIFIED NUMBER 

put false into LETTER JREADV_TO_GO 

if PACKAGE SIDE_FULL is true 

show field 1 package side fuli ' 
end if 

if STAMP_HOLDER_EMPTY is true 
show field "Stamp Holder Empty" 
end if 

if (PAYMENTJWETHOD <> 2) then 
hide group "Card Balance" 
else 

show group "Card Balance" 

put sysnumberformat into originalFormat 

set sysnumberformat to "##0.00" 

put ZIPCARD_BALANCE into the text of field "Zipster Card Balance" 
format the text of field "Zipster Card Balance" as sysnumberformat 
set sysnumberformat to originalFormat 
end if 

checking for holiday or Sunday 
set sysDateFormat to "m.d.y" 
put sysDate into today 
put is_ho!iday(today) into today_holiday 
put is_sunday(today) into today_sunday 

- checking for pick-up time 
set sysTimeFormat to "hh24min" 
if ( (sysTime > PICKUPJTIME) ui\ 

(todayjioliday = 1) or (today_sunday = 1) )then 
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put true into NO_PICKJJP 
else 

put false into NO_PICK_UP 
end if 

if sysLevel is reader then 
get init_scale() 
end if 
end 

to handle leavePage 
forward 

hide field "package sid j full" 
hide field "Stamp Holder Empty" 
show group "go jack" i f this background 
end 

to handte moveM iterTo' Yont ' " . ~. . 

if meterToLetterPositic nO <> 0 

send post_ernr "1", The machine is temporarily out of order (meter rotation fa led)." 
else 

get write_outp it(8, 1,0) - move the meter assembly to the front 
end if 
end 

tc handle credCarc NotSwiped 
go to page "Crec t card read" 
e;.d 

Script « >f package selection button 



to handle ButtonDown 

forward 

system 

ARTICLE^TYPE.FIRST^PACKAGE.DOOR^OPENED.NEX^PLACE.TO^GO.NO.PICK.UPA 

INQUIRY_ONLY ) CREDCARD_SWIPED I SCREEN_AFTER_VIDEO_HELP l TRANSACTION_TY 
PE 

put "Packages" into ARTICLE TYPE 
put "Express" into TRANSACTION TYPE 
put false into DOOR_OPENED 
if INQUIRY_ONLY is false 

pui metertoPackagePositionO into rotateStatus 

if rotateStatus = 1 

send post_error "service selection'VThe package side of the machine is temporarily out of 
order." 

break ButtonDown 
end if 

if rotateStatus = 2 

send post_error "service selection'V'The machine is temporarily out of meter strip to use on a 
package." 

break ButtonDown 
end if 
else 

put "Pecans weighing" Into SCREEN_AFTER_VIDEO_HELP 
end if 
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if FIRST_PACKAGE is true 
put "Package Weighing" into NEXT PLACE_TO_GO 
if NO_PICK_UP is true then 

put "Next Pick-up Notice" into SCREEN_AFTER_VI DEO_H ELP 
else 

put "Package Weighing" into SCREEN_AFTER_VIDEO_HELP 
end if 

go to page "Video Help Screen" 
else 

put "Package Weighing" into SCREE aI_AFTER_VIDEO_HELP 

go to page "Package Weighing" 
end if 
end 



Script of letter select on but' on 



to handle ButtonDown ~ * "" 

forward 

system TRANSACTION_TYPE,NEXT : =U^E_TO_GO,NO_PICK_UP,FIRST_FIRSTCLASS,\ 
INQUIRYj)NLY 1 CREDCAF".D_SWIPED.SCREEN^FTER_VIDEO_HELP 

put "Regular Firit Class" into TRANSACTION TYPE 
if INQUIRY_ONLY is false 
send moveMeierToFront 
else 

put "Letter inse rtion" into SCRE,'EN_AFTER_VIDEO_HELP 
end if 

if FIRST_FIRST3LASS is true th ;n 
put false into r IRST_FIRSTCLASS 
put "Letter insertion" into NEXT PLACE TO_GO 
if NO PICK_UP is true then 

put "Next Pick-up Notice" into SCREEN_AFTER_VIDEO_HELP 
else 

put "Letter insertion" into SCREEN_AFTER_VIDEO_HELP 
end if 

go to page "Video Help Screen" 
else 

put "Letter insertion" into SCREEN_AFTER_VIDEOJHELP 

go to page "Letter insertion" 
end if 
end 



Script of international destination country selection screen 



to handle enterPage 
forward 

system DEST_COUNTRY 

put DEST_COUNTRY into the text of field "Destination Country" 

put null into the text of field "Country List" 

put "Country :" into the text of field "Entry Item" 

get openDBFilefnations.dbf") 

get openDBIndexFileC'nations.ndx") 

end 
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to handle ItrBtn 

put (name of target) after the text of field "Destination Country" 
if( matching_Country (the text of field "Destination Country'M) = 0) 
get matching_Country (the text of field "Destination Country'M) 
end if 
end 

to handle eraseLtr 
if the text of field "Destination Country" is not null then 
clear the last character of the toxt of field "Destination Country" 
else 

put null into the text of field "C< untry List" 
end if 

if the text of field "Destination Cl untry" is not null then * 

get matching_Country (the tex of field Destination Country",-1) 
else 

put null into the text of fi ?ld "Cc jntry Lis*" 

end if*' " ** ~ 

end 

to handle havePage 
system DFST_COUNTRY r 0EST_CITY 
get close/ .IIDBFilesO 

put null in f o the text of fiel-:' "Destination Country" 
end 

to get mate iing_country coi ntry.ErraseOrType 
put 0 into .ineCount 
if country is not null then 
put null i.ito the text of fie d "Country List" 
put charCount(country) in o numCountryChars 
put findDBKey(coun ry) into keyFound 
if (keyFound = 1) or (keyFound = 2) then - a match 
put getDbFieldValue("COUNTRY") into tempCountry 
while (1 = 1) 
increment lineCount 

put tempCountry into textLine lineCount of the text of field "Country List" 
if (nextDBRecordO < 0) 
break while 
end if 

put getDbFieldValue("COUNTRY") into tempCountry 

if (chars 1 to numCountryChars of tempCountry <> country as text) then 

break wnile 
end if 
end while 
else 

clear the last character of the text of field "Destination Country" 
end if 

if (lineCount = 1) 
if (ErraseOrType = 1) Then 
system DEST_COUNTRY 

put textLine 1 of the text of field "Country List" into DEST_COUNTRY 
put DEST_COUNTRY into the text of field "Destination Country" 
end if 

end if . - 

end if 
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return lineCount 
end 

to handle takeDestinationCountry 
system 

DEST.COUNTRY.NATIONS.CODE.USPS.PKG.CHARGE.CUSTOMS.FORM.NEED 
if( matching_Country (the text of field "Destination Country", 1) = 1) 
put null into the text of field "Country List" 
put null into the text of field "Destination Country" 
get previousDBRecordO 

put getDbFieldVaIue("CITY_FILE") into NATICNS_CODE 

put getDbFieldValue("DOCUMENTS") into CU >TOMS _FORM_NEED 

put getDbFieldValue("RATE") into USPS PKG CHARGE 

if (NATIONS_CODE <> 0) then 

go to page "Destination City Selection 
else 

go to page "International Pre-Processhg" 
end if 
end if 
end 

Script of international destinatior city selection screen 



to handle enterPage 
forward 
system 

NATIONS_CODE,DEST_CC»UNTRY t DESTIKATION_CODE t MAX_DESTINATION_LINES ( CUR 
RENT_DESTINATION_LINL 

put "Country:" & DEST_CO JNTRY into the \ *xt of field "Country Name" 

send displayCityList 

end 

to handle leavePage 
get closeAIIDBFilesO 
end 

to handle displayCityList 
system NATIONS_CODE 
put null into the text of field "Destination List" 
get openDBFile("cityfile.dbf) 
get openDBIndexFile("cityfile.ndx") 
put findDBKey(NATIONS_CODE) into keyFound 
if keyFound < 1 then « not a match 
break 
else 

while true - get all cities serviced 
put getDBFieldValue("CITY") after the text of field "Destination List" 
if( nextDBRecordO = -10) - last record reached 

break while 
end if 

if getDBFieldValue("NATIONCODE") <> NATIONS_CODE 

break while 
end if 

put " after the text of field "Destination List" 
end while 

end if N 
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Script of stamp book droping screen 



to handle enterPage 
forward 

system FIRST_STAMP 
if FIRST_STAMP is true then 
put false into FIRST_STAMP 
end if 

hide group "go back" of this background 
system 

CASH_SELECTED t STAMP_BOOK_P! MCE,STAMP_BOOK_CHARGE,NUM STAMP_BOOKS,\ 
TOTAL_BILL_VALUE t SERVICE_ CHARGE 

put "$ " & (STAMP_BOOK_PR CE*Nl M STAMP BOOKS) into the text of field "subtotal" 

if CASH_SELECTED is true 

put "$ " & TOTAlr BILL_VALt E into ;he text of field "total" ~ 

put (TOTAL_B I LL_VALUE - (STAMF BOOK °RICE*NUM STAMP BOOKS)) into 
SERVICE_CHARGE 

else 
system 

CREDCARD UoED.CREDCARL BALANCE ( CREDCARD_APPROVED,CREDIT_TRANS_LIMI 

T,\ 

TRACK2DA rA,APROVAL_C ODE,CC_ERROR t CC MESSAGE.CARD AMCUNTJJSED 
put "$ " & (ST \MP_BOOK_CK\RGE*NUM_STAMP_BOOKS) into the text of veld "total" 
put ((STAMP BOOK CHARGE - STAMP_BOOK PRICE)*NUM_STAMP_BOOKS) into 
SERVICE_CHA^ :GE 

put (STAMP^DOOK^CHARGE 'NUM STAMP BOOKS) into total 
while (CREDC ARD_APPROVFD = 32000) 

show field "Getting Approval" 

pause 40 
end while 

hide field "Getting Approval" 

if (CREDCARD_APPROVED <> 0) then approval denied 

send post_error "Printing Receipt'V'Credit Card Approval Denied" 

break to system 
else --approved 

if CREDCARD_BALANCE < total then 
show field "Getting Approval" 

increment CARD_AMOUNT USED by (CREDITTRANS LIMIT - 
CREDCARD_BALAlMCE) 

put CREDITJRANSJJMIT into CREDCARD_BALANCE 

put CCApproveCTRACI^DATA.CREDCARD^BALANCE.APROVAL.CODE, CC_ERROR,\ 

CC_MESSAGE ) into AproveStatus 
if (AproveStatus <> 0) then -- second trial 
put CCApprove(TRACK2DATA l CREDCARD_BALANCE ( APROVAL_CODE, 
CC_ERROR, CC_MESSAGE ) into AproveStatus 
end if 

hide field "Getting Approval" 
if (AproveStatus <> 0) then 

send post_error "Printing Receipt'V'Credit card authorization line is busy. Please try 

again" 

break to systen? 
end if 
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end if 
end if 

put true into CREDCARDJJSED 

put CREDCARD_BALANCE - total into CREDCARD_BALANCE 
end if 

if sysLevel is reader then 
if ( dispenseStamp(NUM_STAMP_BOOKS) = 0) 
send updateReceipt to page "Receipt" 
else 

send post_error "Printing ReceipT.The machine i s temporarily out of stamp books" 
break enterPage 
end if 

if CASH_SELECTED is true 
go to page "Want Receipt" 
else 

go to page "More Transactions" 
endlf 
end if 
end 

to handle leavePage 
forward 

show group "go back" of this background 
end 



Script of dollar bill acceptance screen 



to handle enterPage 
forward 

hide group "go back" of this bacKground 
system TOTAL_BILL_VALUE 
put TOTAL_B I LL_VALU E into the text of field "total" 
format the text of field "Total" as "$##0.00" 
set gmem to globalAlloc(0 ( 136) 
system statusString 
if gmem = 0 

request "Not enough global memory" 
break to system 
end if 

set statusString to globalLock(gmem) 
step i from 1 to 4 
if (BAAcceptEnable(statusString) = 1) - good message received 
set Byte2 to pointerByte(1 .statusString) 
if (BACheckStacker(Byte2) = 4) 
get GlobalUnlock(gmem) 
get GlobalFree(gmem) 
break enterPage 
end if 
end if 
end step 

get GlobalUnlock(gmem) 
get GlobalFree(gmem) 

; end pcst_error "Printing Receipl","The*bfii acceptor is lempoi ariiy out of order 
end 
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to handle idle 

system statusString,TOTAL_BILL_VALUE,STAMP_BOOK_CHARGE,NUM_STAMP_BOOKS 

set gmem to globalAlloc(0.136) 
if gmem = 0 

request "Not enough global memory" 
break to system 
end if 

set statusString to globalLock(gmem) 
put BAStateChangedO into statusRet 
if statusRet = 2 

get BAStackBill(statusString) 

set Bytel to pointerByte(O.statusString) 

set Byte2 to pointerByte(1 .statusString) 

set Byte3 to pointerByte(2 ( statusString} 

if (BACheckStare(Bytel) ='4) bill stacked - . . ~ 

put BACheckStacker(3yte2) into retValue 
if (retValue = 4) - lockable cassette present *nd not full 
put BACheckBillVal;je(Byte3) into currentBillValue 
if (currentBillValue > 0) and (currentBillVaiue<=20) 
increment TOTAL BILL_VALUE by currentBillValue 
put TOTAL_B I LLJ 'ALU E into the text of field "total" 
format the text of t:eld "Total" as "$##0.00" 

if (TOTAL_BILL_VALUE >= (STAMP_BOOK_CHARGE*NUM_STAMP_BOOKS)) 

go to page "Dropug Stamp Books" 

break to system 
end if 

end if \ 
end if \ 
end if 
end if 

get GlobalUnlock(gmem) 
get GlobalFree(gmem) 
end 



to handle leavePage 
forward 

show group "go back" of this background 
set gmem to globalAlloc(0,136) 
system statusString 
if gmem = 0 

request "Not enough global memory" 
break to system 
end if 

set statusString to globalLock(gmem) 

step t from 1 to 4 
if (BAAcceptDisable(statusString) = 1) - good message received 
set Byte2 to pointerByte(1 .statusString) 
if (BACheckStacker(Byte2) = 4) 
get GlobalUnlock(gmem) 
get GlobalFree(gmem) 
break leavePage 
end if 
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end if 
end step 

get GlobalUnlock(gmem) 
get GIobalFree(gmem) 

send post_error "Printing Receipt'VThe bill acceptor is temporarily out of order 
end 



Script of holiday warning screen 



to handle enterPage 
system PICKUPJTIME 
forward 

checking for holiday or Sunday 
;>et sysDateFormat to "m.d.y" 
put sysDete into today 

out is_tioliday(today) into today_holiday~ " 
put is_surday(today) into today_sunday 

put PICKUP_TIME into nextPickupTime 

lormat time nextPickupTime as "h:min AltfPM" from "hh24min" 

put nextPickupTime into the text of field "| »ick-up time" 

put next_pick_up_dateO irito nextDate 

put is_sunday(nextDate) into daynum 

format date nextdate as "m/d/y" from "m.c.y" 

put strWeekDayName(daynum) & H " & nextdate into the text of field "pick-up date" 
if (today_holiday = 1) then 

show field "pick-up holiday" 

hide field "pick-up done" 
end if 

if (today_sunday = 1) then 

show field "pick-up Sunday" 

hide field "pick-up done" 
end if 
end 

to handle leavePage 

hide field "pick-up Sunday" 

hide field "pick-up holiday" 

show field "pick-up done" 
end 



Script of certified number entry screen 



to handle enterPage 
forward 

system ARTICLE_TYPE 
if ARTICLE_TYPE = "Letters" then 
hide group "go back" of this background 
end if 

system CERTIFIEDJslUMBER, CERTIFIED FEE 
put 1 .00 into CERTIFIED_FEE 
if char 1 of CERTIFIEDJMUMBER = "P" then 
dear chars 1 to 2 of CERTIFIEDJslUMBER 
end if 
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put CERTIFIEDJMUMBER into the text of field "Certified Number 
end 

to handle leavePage 
forward 

show group "Cerified Letter" 
show group "go back" of this background 
end 

to handle ItrBtn 
system LABELJNDEX.CERTIFIED NUMBER 
if LABELJNDEX > 10 then 
beep 1 

break to system 
end if 

increment LABELJNDEX 
if LABELJNDEX is in "4,8" then 
increment LABELJNDEX 
end if * 

put (name of target) into character LABELJNDEX of ' :ERTIFIED_NUMBER 
put CERTIFIEDJMUMBER into the text of field -Certified Number" 
end 

to handle eraseButton 
system LABELJNDEX, CERTFIEDJMUMBER 
if LABELJNDEX = 0 then 
beep 1 

break to system 
end if 

put " " into character LABELJNDEX of CERTIFI ED NUMBER 
put CERTIFIEDJMUMBER intc the text of field "Certified Number" 
if LABELJNDEX is in "5,9" then 
decrement LABELJNDEX 
end if 

decrement LABELJNDEX 
end 

to handle EnterButton 
system LABELJNDEX, CERTIFIEDJMUMBER 
if LABELJNDEX =11 then 
put "P " before CERTIFIEDJMUMBER 
go to page "Return Receipt Selection" 
end if 
end 

to handle clearCertifiedNumber 

system LABEL INDEX t CERTIFIED NUMBER 

put 0 into LABELJNDEX 

put " " into CERTIFIEDJMUMBER 

end 



Script of letter insertion screen 



to handle enterPage 
forward 

svstem REPEATJ/IDEO.LETTER STATE, FIRST LETTER 
put true into REPEAT_VIDEO 
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put 3 into LETTER_STATE 
if FIRST_LETTER is true then 
put false into FIRST_LETTER 
send zeroLetterScale 
end if 
end 

to handle zeroLetterScale 
local zeroCounter 
put 0 into zeroCounter 
if sysl evel is reader then 
shov group "scale zeroing" 
while (1 = 1) 
increment zeroCounter 
if (; aroCounter > 15) then 
pi t zero_scale(1 ,1) into zero_status 
elsfi 

pi;fzero_scale(1 ,0) into zero_status ~ 
enc if 

if (? 3ro_status = 0) then 
break while 
enc if 

if (zero_status = 1) then 
hide group "scale zeroing" 

send post_error 'T\"The Scale is Temporarily out of order" 
end if 

if (zero_status = 2) then 
if (zeroCounter = 4 ) then 

send showDvi "c:\pielect\clear_sl.avs" say clear the lett r scale 
end if 
end if 
end while 

hide group "scale zeroing" 
ond if 
end 

to handle idle 
forward 

system LETTE RESTATE 

put checkJetterO into LETTER STATE 

if LETTER_STATE = 0 

go to page "weighing" 

break idle 
end if 

pause 10 ticks 

- put sysTime into startTime 

- while sysTime - startTime < 50 

- set dummyVarto yieldAppO 
« end while 

end 

to handle RepeatingVideoTimeout 
system LETTER_STATE 
conditions 

when I FTTER_STATE = 0 
go to page "weighing" . 
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when LETTER_STATE = 1 

send movejojeft 
when LETTER_STATE = 2 

send move tojront 
when LETTEFfSTATE = 3 

send insertjetter 

end 
end 

to handle movejojeft 
j end showDvi "c:\pielect\toJeft.avs" 
e id 

tr handle movejojront 
rsnd showDvi M c:\pieIect\toJront.avs" 
e id 

tr handte insertjetter 
j 3nd showDvi "c:\pielect\ltr ins.avs" 
e-d 

to handle shortTimeout 

send showDvi "c:\pielect\ltrjns.avs" 
end 



Script of letter charges display \ :nd approval scre en 



to handle enterPage 
forward 
system 

TRANSACTION_TYPE,RATE_CATEGORY .ARTICLE WEIGHT.FIRSTCLASS MARKUP,\ 
CERTIFIED_MARKUPJNTERNATIONAL_MARKUP,PAYMENT_METHOD t \ " 
INQUIRY_ONLY,STAMPING_ON_LETTER,SERVICE_CH^.RGE 

put false into STAMPINGJDN LETTER 
if TRANSACTION_TYPE <> "Certified Mail" then 
hide group "go back" of this background 
end if 

system CERTIFIED J=EE,RETURN_RECEIPT CHARGE, WEIGHT STRING 
put WEIGHT_STRING into the text of field "Weight Display" 

put letterCharge(ARTlCLEJ/VEIGHT,RATE_CATEGORY) into USPSpostage 
put sysnumberformat into originalFormat 
set sysnumberformat to "$##0.00" 

put (USPSpostage + CERTIFIED_FEE + RETURN_RECEIPT_CHARGE) into subtotal 

put subtotal into the text of field "Subtotal" 

format the text of field "Subtotal" as sysnumberformat 

conditions 

when TRANSACTION_TYPE = "Regular First Class" 

put (subtotal*FIRSTCLASSJVIARKUP) into piMarkup 
when TRANSACTIONJTYPE = "Certified Mail" 

put (subtotaI*CERT!FIED_MARKUP) into piMarkup 
when TRANSACTION_TYPE = "International" 

put (subtotal*INTERNATIONAL_MARKUP) into piMarkup 

put 0.0 into piMarkup 
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end conditions 
if piMarkup > 5.0 then 
put 5.0 into piMarkup 
end if 

format piMarkup as "0.00" 

put piMarkup into SERVICE_CHARGE 

put (Subtotal + piMarkup) into the text of field "Total" 
format the text of field "Total" as sysnumberformat 
set sysnumberfc rmat to originalFormat 

system REPEAT VIDEO, LETTER_STATE 
put true into REPEAT_VIDEO 
put 3 into LETTLR_STATE 



system" "" " ~ 

INQUIRY_ONLY, :iPCARD_BALANCE,PAYMENT_METHOD,CREDCARD APPROVED 
system CREDCARD_BA^NCE,TRACK2DATA l BACK_FROM_ERROR ( Af'ROVAL_CODE ) \ 

CC E. *ROR CC MESSAGE f CREDCARD_APPROVED,CREDCARD JSED.\ 

CRED TJTRANS[_LIMIT,CARD_AMOUNTJJSED 

if INQUIRY .ONLY = true then 
show butt >n "Proceed" 
else 

hide buttc i "Proceed" 

put the te: t of field "Total" into total 

clear char 1 of total 

if PAYMENT METHOD = 2 then - Zipster Carxi 
if ZIPCA;*D_BALANCE < total then 
send p »st_error "Printing Receipt'V'Insufficient Balance On Your ZIPSTE.R Card" 
break to system 
end if 
end if 

if PAYMENT METHOD = 3 then ~ Credit Card 
while (CRE5CARD_APPR0VED = 32000) 
show field "Getting Approval" 
pause 40 
end while 

hide field "Getting Approval" 

if (CREDCARD_APPROVED <> 0) then ~ approval denied 

send post_error "Printing ReceiptYCredit card authorization line is busy. Please try again" 

break to system 
else - approved 

if CREDCARD_BALANCE < total then 
show field "Getting Approval" 

increment CARD_AMOUNT USED by (CREDIT TRANS LIMIT- 
CREDCARD_BALANCE) 

get updateCaptureFileO 
put CREDITTRANSJJMIT into CREDCARD_BALANCE 

put CCApprove(TRACK2DATA t CREDCARD_BALANCE ) APROVAL -- CODE l CC_ERROR,\ 

CCJ/IESSAGE ) into AproveStatus 
if (AprsveSisiuc o C) ihen second trial 
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put CCApprove(TRACK2DATA,CREDCARD BALANCE.APROVAL CODE, 
CC_ERROR, CC_MESSAGE ) into AproveStatus 
end if 

hide field "Getting Approval" 
if (AproveStatus <> 0) then 

send post_error "Printing Receipt'V'Credit Card Approval Denied" 
break to system 
end if 
end if 
end if 
en=l if 
en( if 
end 

to ge k letterCi *arge wght.dest 
gev openDBFile("c:\pielect\ltr_rate.dbr) 
geifirstDBFecordO 

wMe1=1 - . .. 

if (wght <= getDbFieldValue("OUNCES n » then 

:eturn getDbFieldValue(dest) 
else 

get nextUBRecordO 
end if 
end while 
end 

to handle leavePage 
forward 

get closeAIIDBFilesO 
show group help 

show group "go back" of this background 
show group "stop" of this background 
end 

to handle idle 

system LETTE R_STATE , STAM P I NG_ON LETTER .INQUIRY ONLY 
if INQUIRY_ONLY = false then 
if STAMPING_ON_LETTER is false 
put checkJetterO into LETTER STATE 
if LETTE RESTATE = 0 

send stampLetterWithPostage 
end 
end if 
end if 
forward 
end 

to handle RepeatingVideoTimeout 
system LETTE RESTATE , STAM PING ON_LETTER 
if STAMPING_ON_LETTER is false ~ 
conditions 

when LETTER_STATE = 0 

send StampLetterWithPostage 
when LETTER_STATE = 1 

c#*rd rnov^ to !cft 
when^LETTER STATE = 2 
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send move_to_front 
when LETTER_STATE = 3 

send insertjetter 
end 
end if 
end 

to handle move_toJeft 

- send showDvi "c:\pielect\toJefLavs" 
end 

to handle move_to_frc it 

send showDvi H c*\pif;lect\to_front.avs" 
end 

to handle insert, Jetter 

- send showDvi "c:\pie :ect\ltrjrs.avs" 

end - " ~ - ■-• ■ - • - 

to handle StartVideoTi.'ner 

get SetTimer(s> iWindowHandle, 10112,1 0000, 0) 

end 

♦o handle shortT- Tieout 
send Repeating 'ideoTimeout 
snd 

:o handle stampl etterWithPostage ' 
system 

^ETER_BALANf;E l PAYMENT_METHOD,ZIPCARD_BALANCE;CREDCARD BA _ANCE \ 
STAMPING _ON_LETTER,TRANSACTION TYPE 
put true into S v AMPING_ON_LETTER 

put the text of field "Subtotal" into subtotal 
clear cha*" 1 of subtotal 
put the text of field "total" into total 
clear char 1 of total 
put (subtotal * 100) into subtotal 
if METER_BALANCE < (subtotal*2) 
if (maintain_meter_account("Printing Receipt") = 0) 

break to system 
end if 
end if 

put sysnumberformat into originalFormat 
set sysnumberformat to "00000" 
format subtotal as sysnumberformat 
set sysnumberformat to originalFormat 
hide group help 

hide group "stop" of this background 
hide group "go back" of this background 

get stamp_onJetter(subtotal) 

put it into meter_status 

get write_output(1 ,0,0) - turn off postage meter 
conditions 

when meter_status = 0 
p\'t METEP_PAL A .NC5 - su&otal Irilc METER_BALANCE 
if PAYMENTJVIETHOD = 3 then - Credit Carxi 
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put true into CREDCARDJJSED 

put CREDCARD_BALANCE - total into CREDCARDJ3ALANCE 
end if 

send updateReceipt to page "Receipt" 
if TRANSACTION_TYPE = "Certified Mail" 

go to page "service selection" 
else 

go to page "Letter insertion" 
end if 

when meter_ status = 3 

send post_3iror "Printing Receipt","Postage Meter Timed Out" 

break to sy stem 
else 

send post_t rror "Printing Receipt","Postage Meter Malfunction" 
brea! : to syslem 
end corditions 
end 

Scrip of packnge weighing screen 



to handle i.lle 
forward 

ifsysLeve is reader then 
send d* tectPackage 

send cai ;ulateWeight tc page "weighing" 
end if 
end 

to handle otectPackage 

put find_>eight(2, wgt_string, 1) into pound_weight 

if poundj. 'eight > 0.05 then package is detected 
go to pace "Weighing" 

end if 
end 

to handle eMerPage 
forward 

system DOOR.OPENED.FIRST.PACKAGE.LOOP^OUNTJNQUIRY ONLY 
put 0 into LOOP_COUNT 
hide group "go back" of this background 
if FIRST_PACKAGE is true 
send zeroPackageScale 
end if 

if DOORJDPENED is false then 
if (INQUIRYJDNLY is true) and (FIRST_PACKAGE is false)then 

put true into DOOR_OPENED 
else 

if sysLevel is reader then 
put true into DOOR_OPENED 

get write_output(2, 1,0)- close door solinoid 
pause 30 

get move_sm(2, 755, 1, 5, 10, 1, 0) - open package door 
end if 

**rvi i f 

end if 
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if FIRST_PACKAGE is true 

put false into FIRST_PACKAGE 
end if 
end 

to handle zeroPackageScale 
if sysLevel is reader then 
show group "scale zeroing" 
while (1 = 1) 
put zero_scale(2,0) into zero^status 
if (zero.status = 0) then 
break while 
end if 

if (zero_status = 1) then 
hide group "scale zei oing" 

send post_error "Priming Rt ceipt",The Scale is Temporarily out of order 
end if 

end while - 

hide group "scale zeroing" 
end if 
end 

to handle :eavePage 
forward 

get write_output(2, 0, 0) - open door solinoid 
end 

to handle jhortTimeOut 

- send showDvi "c:\pielectokgjns.avs" 

end 



Script of destination zipcode entry screen 



to handle enterPage 
forward 

system ZIP INDEX.DEST ZIPCODE 

put 0 into ZIP INDEX 

put " " into DEST_ZIPCODE 

put DEST_ZIPCODE into the text of field "Destination Zipcode" 
get openDBFileC'c:\pielect\zipfile.dbr) 
get openDBIndexFile( H c:\pielect\zipfile.ndx") 
end 

to handle ItrBtn 
system ZIP INDEX.DEST ZIPCODE 
if ZIPJNDEX = 0 then 

hide field "Invalid zipcode entered" 
end if 

ifZIP_INDEX = 5then 
beep 1 

break to system 
end if 

increment ZIPJNDEX 

put (name of target) into character ZIPJNDEX of DEST ZIPCODE 
put DEST_7iPCODF. into the text of fisid Uestiraiton Zipcode" 
end 
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to handle EraseButton 
sy-tcm ZIPJNDEX, DE3T_ZiPCODE 
ifZIPJNDEX = Othen 
beep 1 

break to system 
end if 

put " " into character ZIPJNDEX of DEST.ZIPCODE 
put DEST_ZIPCODE into the text of field "Destination Zipcode" 
decrement ZIPJNDEX 
end 

to handle EnterButton 
system ZIPJNDEX, DEST_ZIPCODE,ZIPCODE ZONE 
if ZIPJNDEX = 5 then 

get zipCodeZone (DEST_ZIPCODE) 
if it = -1 then 
show field "Invalid zipcode entered" 

put 0 into ZIPJNDEX 
put " " into DEST_ZIPCODE 

put DEST_ZIPCODE into the text of field "Destination Zipcode" 
else 

put it into ZIPCODE.ZONE 
go to page "Package Rate Shopping" 
end if 
end if 
end 

to handle leave ^age 
get cioseAIIDB -ilesO 
show group "g< back" of this ba kg round 
end 

to get zipCodeZ >ne zip 

put zip / 100 into zipCode 
put trun :ate(zipcode) into zipCode 
pi t sysr umberformat into originalFormat 
sr t sysn imberformat to "000" 
fc mat zipCode as sysnu nberformat 
se sysm mberformat to originalFormat 
pi : findC 3Key(zipCode) into keyFound 
if .eyFoi id <> 1 then not an exact match 
r eturn -1 

eL^e 

return getDBFieldValue("UPSZONE") 

en<l if 

end 

Script of package charges display screen 

to handle enterPage 
forward 

system ZIPCODE_ZONE,WEIGHT_STRING I ARTICLE_WEIGHT,DEST_ZIPCODE \ 
DEST_ZIPCODE,PICKUP_TIME,TRANSACTION_TYPE t EXPRESS MARKUP* \ 
PRIORITYJVIARKUP.PARCELJVIARKUP 

put WElGHT_STRING into the text of field "Weight Display" 
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put ceiling(ARTlCLE_WEIGHT) into pounds 

put sycftuiribtiifoniidi into originalFormat 
set sysnumberformat to "$##0.00" 



' Express Charge ********* 
if ARTICLE_WEIGHT <= 0.5 then 
put 9.95 into uspsCharge 
else — normal express charges 

put findPostagefpounds/'EXPRESS") into uspsCharge 
end if 

put (uspsCharge*EXPRESS_MARKUP) into piMarkup 
if piMarkup > 5.0 then 
put 5.0 into piMarkup 
end if 

put "$" && uspsCharge into the text of field "Express Charge" 

put (uspsCharge + piMarkup) into the text of field "Full Express Charge" 

format the text of field "Full Express Charge" as sysnumberformat 



Priority Charge 
if ZIPCODE_ZONE < 3 then 

put "PRIORITY3" into priorityCategory 
else 

put "PRiORITY" & ZIPCODE_ZONE into priorityCategory 
end if 

put findPc stage(pounds,priorityCategory) into uspsCharge 
put (usps( -harge*PRIORITY_MARKUP) into piMarkup 
if piMarku j> 5.0 then 
put 5.0 i ito piMarkup 
end if 

put "$" && uspsCharge into toe text of field "Priority Charge" 

put (uspsC narge + piMarkuo) into the text of field "Full Priority Charge" 

format the iext of field "Full Priority Charge" as sysnumberformat 



Parcel/Thirc Class Charge 
if AR riCLE J/VEIGHT < 1 .0 then ~ third class 
put ceilinc;ARTICLE_WElGHT*16) into ounces 
put 1ndPostage(ounces, "THIRDCLASS") into thirdClassCharge 
put 100.0 ito parcelCharge 
else 

ifZ °COD E_ZONE < 2 then 
pu "ZON^" into parcelCategory 
else 

pur "ZONE" & ZIPCODE_ZONE into parcelCategory 
end ; f 

put vmdPostage(pounds ( parcelCategory) into parcelCharge 
put 00.0 into thirdClassCharge 
end if 

if (isLocalzip(DEST_ZIPCODE) = 1) then local zipcode 

put findPostage(pounds, "LOCAL") into parcelCharge 
end if 

if (islntraBMC(DEST_ZIPCODE) = 1)then ~ within intra BMC zone 

decrement parcelCharge by 0.27 
end if 

if thirdClassCharge < parcelCharge then 
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set caption of button PARCEL to "THIRD CLASS" 
put (thirdClassCharge*PARCEL_MARKUP) into piMarkup 
if piMaikup > 5.G ihen 
put 5.0 into piMarkup 
end if 

put "$" && thirdClassCharge into the text of field "Parcel Charge" 
put (thirdClassCharge+piMarkup) into the text of field "Full Parcel Charge" 
put "Third Class" into TRANSACTIONJTYPE 
else 

set caption of button PARCEL to "PARCEL POST" 
put (parcelCharge*PARCEL_MARKUP) into piMarkup 
if piMarkup > 5.0 then 
put 5.0 into piMarkup 
end if 

put "$" && parcelCharge into the text of field "Parcel Charge" 
put (parcelCharge+piMarkup) into the text of field "Full Parcel Charge" 
put "Parcel Post" into TRANSACTIONJTYPE 
endir ' - , . ~. 

format the text of field "Full Parcel Charge" as sysnumberformat 
set sysnumberformat to originalFormat 
end 



to get findFostage weight.category 
get openDBFile("c:\pielect\ps_price.dbf") 
get goToDbRecord(weight) 
return getDbFieldValue(category) 

end 

to get isLoc «lzip zipCode 

put .ysnumberformai into originalFormat 
set i ysnumberformai to "00000" 
format zipCode as sysnumberformat 
set s/snumberformat to originalFormat 
get openC3File("c:\pielect^iplocal.dbr) 
get )penD3lndexFile("c:\pi3lect\ziplocal.ndx") 
retur \ findDBKey(zipCode) 

end 

to get >lntraEMCzip 

put zi >/ 100 into zipCode 
put tr ncate(zipcode) into zipCode 
put sysnumberformat into originalFormat 
set sysnumberformat to "000" 
format zipCode as sysnumberformat 
set sysnumberformat to originalFormat 
get c penDBFile("c:\pielect\intraBMC.dbr) 
get openDBIndexFile("c:\pielect\intraBMC.ndx") 
return findDBKey(zipCode) 

end 

to handle leavePage 

get closeAIIDBFilesO 
end 
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iO haiiuic eiiterPage 
forward 
system 

INSUF^NCE_AMOUNT,TRANSACTION_TYPE I WEIGHT_STRING,USPS_PKG_CHARGE\ 
CERTIFIED_MARKUP l EXPRESS_MARKUP l PRIORITY_MARKUP ( PARCEL_MARKUP l \ ' 
CERTIFIED_FEE,RETURN_RECEIPT_CHARGE,PAYMENT METHODA 
INQUIRY_ONLY,SERVICE_CHARGE 

if INQUIRY_ONLY = true then 
set caption of button "Proceed" to "CONTINUE" 

put "TOUCH CONTINUE AFTER VIEWING CHARGES" into the text of field "Flash 
Instruction" 
else 

set caption of button "Proceed" to "APPROVE TOTAL CHARGES" 
put "TOUCH APPROVE IF YOU WISH TO CONTINUE " into the text of field "Flashy 
Instruction" ~ * 
end if 

if TRANSACTIONJYPE = "Express" then 

put 0.00 into INSURANCE_AMOUNT 
end if 

put WEIGHT_STRING into the text of field "Weight Display" 
put sysnumberformat into originalFormat 
?et sysnumberformat to "$##0.00" 

put (USPS_PKG CHARGE + CERTIFIED_FEE + RETURN_RECEIPT_CHARGE; into subtotal 

I ut subtotal into i*ie text of field "Subtotal" 

f irmat the text of field "Subtotal" as sysnumberformat 

conditions 

when TRANSACTIONJTYPE = "Express" 

put (subtotal*LXPRESS_MARKUP) into piMarkup 
when TRAN SAC" ; I ON_TYPE = "Priority" 

put (subtotal*PRIORITY_MARKUP) into piMarkup 
Use parcel po;:t orthirdclass 

put (subtotal*PARCEL_MARKUP) into piMarkup 
end conditions 
if JiMarkup > 5.0 then 

)ut 5.0 into piMarkup 
er i if 

put piMarkup into SERVICE_CHARGE 

put (Subtotal + piMarkup + INSURANCE_AMOUNT) into th..* text of field "Total" 
format the text of field "Total" as sysnumberformat 
set sysnumberformat to originalFormat 
end 



Script of package charges approval button 



to handle ButtonDown 
system 

INQUIRY_ONLY,ZIPCARD_BALANCE,PAYMENT_METHOD,CREDCARD_APPROVED 
system CREDCARD^BALANCE.TRAC^DATA.BACK^FROM^ERROR.APROVAL^CODEA 
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CC_ERROR,CC_MESSAGE,CREDCARD_APPROVED,CREDCARD USEDA 
CREDIT.TRANS_LIMIT.CARD.AMOUNT_.USED 

forward 

if INQUIRY.ONLY = true then 
go to page "More Transactions" 
else 

put the text of field "Total" into total 
clear char 1 of total 

- if (check_stationeryO > 0) then 

put "Postage Meter Strips need to be restocked."\ 

& "Contact manager." into outOfStrips 
send post.error "Printing Receipt",outOfStrips 
break to system 

- end if 

if PAYMENT.METHOD = 2 then - Zipster Card 
if ZIPCARD_BALANCE < total then 
send post.errdT "Printing ReceiptYlnsufficient Balance On Your ZIPSTER Card"*" 
break to system 
end if 
end if 

if PAYMENT METHOD = 3 then Credit Card 
while (CREDCARD.APPROVED = 32000) 
show field "Getting Approval" 
pause 40 
end while 

hide field "Getting Approval" 

f (CREDCARD. APPROVED <> 0) then approval denied 

send post_error "Printing Receipt'V'Credit Card Approval Denied" 

break to system 
Hse - approved 

if CREDCARD. BALANCE < total then 
show field "G-jtting Approval" 

increment CA^D AMOUNTJJSED by (CREDIT TRANS Lift IT - 
CRriDCARD.BALANCE) 

get updateCaptureFileO 
put CREDITJTRANSJJMIT into CREDCARD .BALANCE 

put CCApprov3(TRACK2DATA t CREDCARD_BALANO !,APROVAL_CODE, CC_ERROR,\ 

CCJVIESSAGE ) into AproveStatus 
if (AproveStatus <> 0) then second trial 
put CCApprove(TRACK2DATA,CREDCARD_BALAN ;E,AP^OVAL_CODE, 
CCJ^.RROR, CC_MESSAGE ) into AproveStatus 
end if 

hide field "Getting Approval" 
if (AproveStatus <> 0) then 
send post_error "Printing Receipt'V'Credit card authorization line is busy. Please try 

again" 

break to system 
end if 
end if 



end if 
end if 



get postageStampO 

if it = 0 then - successful 
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if PAYMENTJ/IETHOD = 2 then ~ Zipster Caixi 

put ZIPCARD_BALANCE - total into ZIPCARD, BALANCE 

ccnd wriieZipcardBalance 
end if 

if PAYMENT_METHOD = 3 then » Credit Card 
put true into CREDCARDJJSED 

put CREDCARDJ3ALANCE - total into CREDCARD_BALANCE 
end if 

send updateReceipt to page "Receipt" 
go to page "Apply Meter Strip on Package" 
else 

send post_error "Printing Receipt'V'Postage Meter Malfunction" 

break to system 
end if 
end if 
end 

to get postageStamp 

system METERJ3ALANCE 

put the text of field "Subtotal" into subtotal 
clear char 1 of subtotal 
put (subtotal * 100) into subtotal 
if METER_BALANCE < (subtotal) 
if (maintain_meter_account("Printing Receipt") = 0) 

break to system 
end if 
end if 

put symumberformat into originalFormat 
set sysnuml-erformat to "00000" 
format subtotal as sysnumberformat 
set sysnumt-srformat to originalFormat 

get wrha_output(1 ,1,0) « turn on postage meter 
get write_ourput(3, 1,0) » drop the gate 

pause 'I seconds 

get stamp_strip_print(subtotal) 

put it inio meter_status 

get writ3_output(1 , 0, 0) - turn off postage meter 
get write_outout(3, 0, 0) - raise the gate 
if meter_status = 0 then 
put METER_BALANCE - subtotal into METER_BAL/ ^CE 
return (0) 

else 

return(1) 
end if 

end 



Script of weighing screen 

to handle idle ~~ 
forward 

if sysLevel is reader then 
send calculateWeight 
end if 
end 

to handle calculateWeight 
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system ARTICLE_TYPE ( TRANSACTION_TYPE,LOOP_COUNT,WEIGHT STRING \ 
ARTICLE J/VEIGHTJNQUIRY_ONLY 

if ARTICLE_TYPE = "Letters" then 
put 1 into scale_number 
else 

put 2 into scalejiumber 
end if 

get find_weight(scale_number, weightAsString, 0) 
if it >= 0 then 

put find_weight(scale_number, weightAsString, 1) into ARTICLE WEIGHT 
if ARTICLE J/VEIGHT >= 0 then - two successive stable reading 

put weightAsString into WEIGHT_STRING 

if ARTICLEJTYPE = "Letters" then 

if (TRANSACTIONJTYPE = "International") and (ARTICLE_WEIGHT > 6,0) then 
send tooHeavy 
break to system 

end if ' • - ~. 

if ARTICLEJA/EIGHT > 1 1 .0 then 

send tooHeavy 

break to system 
end if 
conditions 

when TRANSACTIONJTYPE = "Certified Mail" 
if lNQUIRY_ONLY is true then 
go to page "Return Receipt Selection" 
else 

go to f?age "Certified Label" 
end if 

when TRANSACTION_TYPE = "International" 
go to p^ge "Country selection" 
else 

go to paje "Letter Charges Approval" 
end conditions 
end if 

if ARTICLE JTYPE = "Packages" then 
if ARTICLF_WEIGHT > 15.0 then 

send tooHeavy to page "weighing" 

break to system 
end if 

if (TRANSACTION_TYPE = "ExpressMail I itl") and ARTICLEJA/EIGHT > 0.5) then 

send tooHeavy " 

break to system 
end if 

if ARTICLE J/VEIGHT > 0.05 then 
if (TRANSACTIONJTYPE = "ExpressMail Intl") the a 
go to page "Destination Country Entry" 
else 

go to page "Destination Zipcode Entry" 
end if 
end if 
end if 
end if 
else 

increment LOOP COUNT 
if LOOP_COUNf" = 60 then 
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put 0 into LOOP_COUNT 
send showDvi "c:\pielect\stamppkg.avs" - say remove your hand 
end if 
end if 
end 



to handle enterPage 
system LOOP_COUNT 
put 0 into LOOP_COUNT 

end 



to handle tooHeavy 

send post_error "service selection", "The Article Is Too Heavy For This Transaction" 
end 



Script of printing receipt screen 



to handle enterPage ' " ^ * ' 

forward 

system CARD INSIDE.ZIPCARD^BALANCE.INQUIRY ONLY,CREDCARD_SWIPED 
if INQUIRY ONLY is false then 
if CREDCARD_SWIPED is true then 

get updateCaptureFileO 
end if 

send giveReceipt to page "Receipt" 
end if 
end 



to handle leavePage 
forward 

hide, group "Printing Message" 
end 

to ha die shortTimeout 

send showDvi "c:\pielectVreceipt.avs" 
end 



to handle longTimeOut 
if sys'.evel is reader then 

get TakePackageO 

hide field "Remove Package" 

go to page 1 
end if 
end 



to handle idle 
if sysLevel is reader then 
system ARTICLE TYPE 

if (INQUIRY_ONLY is false) and (ARTICLE_TYPE = "Letters") then 

hide field "Remove Package" 

go to page 1 

break to system 
else 

system PACKAGE_SIDE FULL 
if PACKAGE_SIDE_FULL is false 
put " " into wgt_string 
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put find_weight(2, wgt_string, 1) into pound_weight 
if pound_weight >= 0 then stable 
if pound_weight > 0.05 then - package is detected 
hide group "Printing Message" 
show field "Remove Package" 
else 

hide field "Remove Package" 

go to page 1 

break to system 
end if 
end if 
else 

go to page 1 
break to system 
end if 
end if 
end if 

end '~ ~ 



Script of letter or package processing screen 



to handle enterPage 
forward 

system ARTICLE_TYPE 
if sysLevel is reader then 

if ARTICLEJTYPE = "Letters" then 
send TakeLetter 

end f 
end if 
end 

to hannle TakeLetter 

tak3 the letter inside and drop it in the letter contaher 
get ' /rite_output(4, 1,0) - close the clamp 
pau^e 1 seconds 

get nove_sm(1 ) 1387, 2, 10, 10, 1, 0) move clan p to drop position 
-- pause 1 seconds 

get write_output(3 ( 0, 0) raise the gate 
- pausa 2 seconds 

get write_output(4, 0 t 0) - open the clamp 

get reset_motor(1) bring clamp back to hone 

go to page "Letter insertion" 
end 

to handle idle 
system ARTICLE_TYPE,ARTICLE_WEIGHT 

if sysLevel is reader then 
if ARTICLE_TYPE = "Packages" then 
put find_weight(2, wgt_string, 1) into cur_weight 
if cur_weight > 0 then 
if abs(cur_weight - ARTICLEJA/EIGHT) < 0.075 then same package is detected 
hide field "REPLACE PACKAGE" 
get TakePackageO 
go to page "More Transactions" 
else 
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show field "REPLACE PACKAGE" 
end if 
end if 
end if 
end if 
end 

to handle longTimeOut 
if sysLevel is reader then 

hide field "REPLACE PACKAGE" 

get TakePackageO 

go to page "long timeout message" 
end if 
end 



Script of receipt creation screen 



to handle zeroOut " 

system NUM CERTIFIED_MAIL 

put 0 into NUM_CERTIFIED_MAIL 

put "Regular First Class.lnternational, Certified Mail, Priority, Parcel Post,Third 
Class t Express,ExpressMail Intl.Stamp.Total" into transType 

put "Number.Service.Amounf into transAction 

step i from 1 to 10 
step j from 1 to 3 

put 0 into the text of field ((item i of transType) && (item j of transAction)) of page "receipt" 
end step 
( nd step 

put 0 into the text of field "Priority Insurance" of i;age "Receipt" 
put 0 into the text of field "Parcel Post Insurance of page "Receif ;" 
p jt 0 into the text of field "Third Class Insurance' of page "Receipt" 
p it 0 into the text of field "Total Insurance" of pa t ^e "Receipt" 
put 0 into the text of field "Starting Balance" of p;*ge "Receipt" 
p it 0 into the text of field "Ending Balance" of paje "Receipt" 
cisar the text of field "Certified Numbers" of page "Receipt" 
eno 

to handle updateReceipt 
system TRANSACTION_TYPE,C2RTIFIEr-_NUMBER,PAYMENl_METHOD t \ 
PAYMENT JAETHOD.DEST.ZIPCODE, 3ERTI : IED_FEE I RETURN_RECEIPT_CHARGE,\ 

INSURANCE_AMOUNT,NUM_CERTIFIED VIAIL.i.ERVICE CHARGE,NUM_STAMP BOOKS,\ 
FIRST_CRED_TRANS,CRED_?END_Q TE 

put sysnumberformat into originalFormat 
set sysnumberformat to "$##0.00" 
if TRANSACTION_TYPE = "Stamp" 

increment the text of field (TRANSACTIONJTYPE && "Number) of page "Receipt" by 
NUM_STAMP_BOOKS 

increment the text of field ("Total Number") of page "Receipt" by NUM_STAMP_BOOKS 
else 

increment the text of field (TRANSACTIONJTYPE && "Number) of page "Receipt" by 1 
increment the text of field ("Total Number) of page "Receipt" by 1 
end if 

increment the text of field (TRANSACTION_TYPE && "Amount") of page "Receipt" by the text 
of field "Total" 
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format the text of field (TRANSACTION_TYPE && "Amount") of page "Receipt" as 
sysnumberformat 

increment the text of fieid ("Total Amount') of page "Receipt" by the text of field 'Total" 
conditions 

when TRANSACTION_TYPE = "Regular First Class" 

put 1 into trans_num 
when TRANSACTION_TYPE = "Certified Mail" 

put 2 into trans_num 
when TRANSACTION_TYPE = "International" 

put 3 into trans_num 
when TRANSACTION_TYPE = "Express" 

put 4 into trans_num 
when TRANSACTION_TYPE = "Priority" . 

put 5 into trans_num 
when TRANSACTIONJTYPE = "Parcel Post" 

put 6 into transjium 
when TRANSACT!ON_TYPE = "Third Class" 

put 7 into trans_num 
when TRANSACTIONJTYPE = "Stamp" 

put 8 into trans_num 
when TRANSACTIONJTYPE = "ExpressMail Inti" 

put 9 into transjium 
else 

put 0 into trans_num 
end conditions 



get openDBFile("c:\pielect\mailfile.dbf") 

get openDBlndexFile("c:\pielect\mailfile.ndx") 

getsetDbFieldValue("TRANS_TYPE",trans_nur i i) 

^et setDbFieldValue("PMT_TYPE",PAYMENT_ METHOD) 

et sysDateFormat to "yy/mm/dd" 
?et setDbFieldValue("MAILDATE",sysDate) 
: et sysTimeFormat to "hh24:min" 
get setDbFieldValue("MAILTIME",sysTime) 
f-ut the text of field "Total" into postage 
clear chars 1 to 2 of postage 
get setDbFieldValue("POSTAGE",postag<0 
get setDbFieldValue("HANDLE_CHG",SE< WICE CHARGE) 
if FIRST_CRED_TRANS is true 

get setDbFieldValuefTRANSM T",0) 
else 

get setDbFieldValue("TRANSMIT",1) 
end if 

if TRANSACTIONJTYPE is in "Parcel Pos-.Priority.Third Class" then 
increment the text of field (TRANSACTIC N_TYPE && "Insurance") of page "Receipt" by 

INSURANCE_AMOUNT 
format the text of field (TRANSACTIONJTYPE && "Insurance") of page "Receipt" as 

sysnumberformat 

increment the text of field ("Total Insurance") of page "Receipt" by INSURANCE_AMOUNT 
end if 

get setDbFieldValue("INSUREFEE",INSURANCE_AMOUNT) 
set sysnumberformat to originalFormat 



if char 1 of CERTIFIED NUMBER = "P" then 



U.S. Express Mail EG 532 186 526 US 

E 

) 



* • 

Page-52 

put CERTIFIED_NUMBER & CRLF after the text of field "Certified Numbers" of oaae 
"Receipt" 

get setDb, r ;eidVc;iue(' CcKi"iFYiNUM , ';CERTiFIED_NUMBER & CRLF) 
get setDbFieldValue("CERTIFYFEE",CERTIFIED_FEE) 
get setDbFieldValue("RTN_RCTFEE",RETURN RECEIPT.CHARGE) 
increment NUM_CERTIFIED_MAIL 
else 

get setDbFieldValue("CERTIFYNUM",null) 
get setDbFieldValue("CERTIFYFEE",null) 
get setDbFieldValue("RTN_RCTFEE",null) 
end if 



get setDbFieldValue("CRED_DATE",CRED_SEND_DATE) 
get writeDBrecord(getDBRecordCountO+1) 
get closeAIIDBFilesO 

get openDBFile("c:\pielect\sendmail.dbf") 

getsetDbFieldValOe("TRANSlTYPE",trans_num) 

get setDbFieldValue("PMT_TYPE",PAYMENT_METHOD) 

set sysDateFormat to "yy/mm/dd" 

get setDbFieldValue("MAILDATE",sysDate) 

set sysTimeFormat to "hh24:min" 

get setDbFieldValue("MAILTIME",sysTime) 

get setDbFieldValue("POSTAGE",postage) 

get setDbFieldValue("HANDLE CHG",SERVICE_CHARGE) 

getsetDbFieldValue("INSUREFEE",INSURANCE_AMOUNT) 

if char 1 of CERTIFIED_NUMBER "P" then 

get setDbFieldValue("CERTIFYNUVI" 1 CERTIFIED JUMBER & CRLF) 
get setDbFieldValue("CERTIFYFEr: M ,CERTIFIED_} EE) 
get setDbFieldValue("RTN_RCTFEE",RETURN_RECEIPT_CHARGE) 
send clearCertifiedNumberto page "Certified Label' 
else 

get setDbFieldValue("CERTIFYNU,/l",null) 
get setDbFieldValuefCERTIFYFEl ".null) 
get setDbFieldValuefRTN.RCTFE^null) 
end if 

if F I RST_CRED_TRANS is true 

put false into FIRST_CRED_ TRANS 

get setDbFieldValue ("TRANS VHT",0) 
else 

get setDbFieldValue {"TRANS VIIT'M : 
end if 

get setDbFieldValue("CRED_C VTE",( *RED_SEND_DATE) 
get writeDBrecord(getDBRecor1CountO+1)~ 
get closeAIIDBFilesO 
end 



to get receiptPrint 
system 

MACHINE_NUMBER,LOCATION_NAME,LOC_STREET_ADDRESS,LOC_CITY 1 LOC_STATE,\ 

LOC_ZIPCODE,NUM_CERTIFIED_MAIL,PAYMENT METHOD.ZIPCARD BALANCE CARD P 
ROCESSING_FEE " " 

system WANT_RECEIPT 

> U.S. Express Mail EG 532 186 526 US ^ 



IS 

J 




Fage-53 



if WANT_RECE1PT is false 
return -3 

end if 

if text of field "Regular First Class Number" of page "Receipt" is 0 and\ 
text of field "International Number 4 ' of page "Receipt" is 0 and\ 
text of field "Certified Mail Number" of page "Receipt" is 0 and\ 
text of field "Priority Number" of page "Receipt" is 0 and\ 
text of field "Parcel Post Number" of page "Receipt" is 0 and\ 
text of field "Third Class Number" of page "Receipt" is 0 and\ 
text of field "Stamp Number 1 ' of page "Receipt" is 0 and\ 
text of field "ExpressMail Intl Number" of page "Receipt" is 0 and\ 
text of field "Express Number" of page "Receipt" is 0 
return -1 

end 

get prt_readyO 

if it =*0 then "nSl ready" ' ~" ~ 

return -2 
end if 

show group "Printing Message" of page "Printing Receipt" 

put (ansitochar(27) & "A33" & ansitochar(13) & "EASY MAIL & SHIP" & CRLF\ 

& ansitochar(27)& "A22 ) into sendString 
send printReceiptString sendString 
step i from 1 to 25 

put (ansitochar(176)) into send3tring 

send printReceiptString sendString 
end step 

put (CRLF & CRLF & ansitochar.27) & "A11") intc sendString 
send printReceiptString sendString - back to nor rial letter size 
set sysDateFormat to "MMM dd, y hi :min:sec AMPM' 
put (CRLF & " " & sysDate' into sendString 
send printReceiptString sendStri .g 

put (CRLF & CRLF & "LOG. # : " & MACHINE_NL'MBER & CRLF & " " & 
LOCATIONJMAME & CRLF & " " 

LOC STREET_ADDREL;S & C RLF & " " & LOC_CITY & " & LOC STATE & " 

" &\ 

LOC_ZIPCODE) into sendStri' g 
send printReceiptString se dStrin j 



send printReceiptString se dStrin w . 

put (CRLF & " ") into sendString 

send printReceiptString ser dString 

put (CRLF & "Transaction # Cf Insur. Amount") into sendString 
send printReceiptString sendString 

put (CRLF &" Type Trans ") into sendString 
send printReceiptString sendString 

put (CRLF & " ~") into sendString 

send printReceiptString sendString 



put (CRLF & CRLF & 



I IAILING RECEIPT" & CRLF) into sendString 
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if text of field "Regular First Class Number" of page "Receipt" is not 0 
put ("First Class ") into thisString 

send printData "Regular First Class", thisString 
end 

if text of field "International Number" of page "Receipt" is not 0 
put ("International ") into thisString 

send printData "International", thisString 
end 

if text of field "Certified Mail Number" of page "Receipt" is not 0 
put ("Certified Mail ") into thisString 

send printData "Certified Mail", thisString t 

put text of field "Certified Mail Number" of page "Receipt" into cmcount 
step i from 1 to cmcount 
step i from 1 to NUM_CERTIFIED_MAIL 

put(CRLF & " ~ " & textlirie i of the text of field "Certified "Numbers" ofpage 
Receipt") into sendString 

send printReceiptString sendString 
end step 
end 

if text of field "Priority Number" of page "Receipt" is not 0 

put ("Priority Mail ") into thisString 

send printlnsuredData "F riority", thisString 
end 

if text of field "Parcel Post Number" of pag^ "Receipt" is not 0 

put ("Parcel Post ") into thisString 

send printlnsuredData "Parcel Post", thisString 
end 

if text of field "Third Class Number" of page "Receipt" is not 0 

put ("Third Class ") mto thisString 

send printlnsuredData "Third Class", thisString 
end 

if text of fie d "Expre s Number" of page "Receipt" is not 0 

put ("Express ") into thisString 

send printl )ata "Ex| ress", hisString 
end 

put ("Express Infl ") into thisString 

send printData "ExpressMril Intl", thisString 

if text of field "Stamp Number" of page "Receipt" is not 0 

put ("Stamp Books ") into thisString 

send printData "Stamp", thisString 
end 

put (CRLF & " ") into sendString 

send printReceiptString sendString 

if PAYMENT_METHOD = 3 credit card 

put (CRLF & "Credit Card Processing Fee : ") into sendString 
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put CARD_PROCESSING_FEE into card_proc_fee 
format card_proc_fee as "##0.00" 

put chars 1 to 6 ot card_proc_fee into chars 42 to 47 of sendString 
send printReceiptString sendString 

increment the text of field "Total Amount" of page "Receipt" by CARD_PROCESSING_FEE 

put (CRLF & " ") into sendString 

send printReceiptString sendString 

end if 

put (" Total: ") into thisString 

send printlnsuredData "Total", thisString 

put (CRLF & " ") into sendString 

send printReceiptString sendString 



- conditions 

When PAYMENTJWETHOD = 1 -cash " ^ 

put (CRLF & "***** Please pay at the cash register *****") into sendString 
send printReceiptString sendString 
when PAYMENT_METHOD = 2 zipcard 
put (CRLF & "Starting Bal. Ending Bal. ") into thisString 

put the text of field "Starting Balance" of page "Receipt" into thisnumber 
format thisnumber as "###0.00" 

put chars 1 to 7 of thisnumber into chars 17 to 23 of thisString 
put the text of field "Ending Balance" of page "Receipt" into thisnumber 
format thisnumber as J, ###0.00" 
put chars 1 to 7 of thisnumber into chars * 3 to 49 of thisString 
put (CRLF & thisStrinc ) into sendString 
send printReceiptString sendString 
when PAYMENT_METHOC = 3 - credit card 
put (CRLF & "***** Pay nent made by cr edit card *****") into sendString 
send printReceiptStrinj sendString 
end conditions 

put (CRLF & " ") into sendString 

send printReceiptString st ndString 

put (CRLF & "*** Thank you for using EASY MAIL & SHIP & CRLF & CRLF) intc 
sendString 

send printF :eceiptSt ing se idString 

step i from 1 to 47 - draw . dark line 

put (ansitochar(22: ; )) into sendString 

send printReceiptString sendString 
end step 

put (CRLF & ansitoc iar(221)&\ 

"EASY MAIL & SHIP is owned and operated and "& ansitochar(222)) into sendString 
send printReceiptString sendString 
put (CRLF & ansitochar(221)&\ 

"the sole responsibility of International "& ansitochar(222)) into sendString 
send printReceiptString sendString 
put (CRLF & ansitochar(221)&\ 

"Kiosk. Any questions should be directed to "& ansitochar(222)) into sendString 
send printReceiptString sendString 
put (CRLF & ansitochar(221)&\ 
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"International Kiosk at 6040 Telephone Rd, "& ansitochar(222)) into sendString 
send printReceiptString sendString 
pui (CRLF & ansitochar(221)&\ 

"Houston, TX 77087. Tel: 71 3-644-6887 "& ansitochar(222)) into sendString 
send printReceiptString sendString 
put CRLF into sendString 
send printReceiptString sendString 
step i from 1 to 47 - draw a dark line 

put (ansitochar(220)) into sendString 

send printReceiptString sendString 
end step 

put (CRLF & CRLF & CRLF & CRLF & CRLF & CRLF & CRLF & CRLF & \ 

ansitochar(27) & "c") into sendString 
send printReceiptStrinq sendString -- cut the receipt 
return 0 

end 

to handle printReceiptString ReceiptString 
put "@REMPRT1 " into thisFiie 

put 1 into i 
openfile thisFiie 

put chars, i to charcount(ReceiptString) of ReceiptString & ansitochar(O) into thisstring 
writeFile thisstring to thisFiie 
closeFile thisFiie 

end 

to handle printDa a thisdata, thisString 

put (thisd ata &" Number") ? nto thisfield 

put the te ;t of field thisfiek* of page "Receipt" into thisnumber 

format thi .number as "##0 

put chars i to 3 of thisnumber into chars 17 to 19 of thisString 

put (thisd* ta &" Amount") into thisfield 

put the te; t of field thisfield of page "Receipt" into amtnumber 

format arr (number as "##0 00" 

put .ihars ; to 6 of amtnum'oer into chars 40 to 45 of thisString 

put CRLF i thisString) into sendString 
s 3nd prin ^eceif tString sendString 
end 



to handle pri itlnsuredData thisdata, thisString 

put Ohisdata &" Number") into thisfield 

put trie text of field thisfield of page "Receipt" into thisnumber 

format thisnumber as "##0" 

put chars 1 to 3 of thisnumber into chars 17 to 19 of thisString 

put (thisdata &" Insurance") into thisfield 

put the text of field thisfield of page "Receipt" into insAmount 

format insAmount as "##0.00" 

put chars 1 to 6 of insAmount into chars 25 to 30 of thisString 
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put (thisdata & M Amount") into thisfield 

put the text of field thisfield of page "Receipt" into amtnumber 

fonnai ammumber as "##0.00" 

put chars 1 to 6 of amtnumber into chars 40 to 45 of thisString 

put (CRLF & thisString) into sendString 
send printReceiptString sendString 
end 

to handle giveReceipt 
if sysLevel is reader then 
get receiptPrintO 
if it = -2 then 

send post_error "1 "."Receipt Printer Is Not Ready" 
end if 

if it = 0 then 
send zeroOut 

end iF * ' " * ~ 

end if 
end 



Script of transaction and activity report printing screen 



to handle leavePage 
forward 

show group "step" of this background 
end 

to handle enterPaje 
forward 

hide group "stop M of this background 
end 

to handle printActi vityReport startDate.startTime.endDate.endTime 
system 

MACHINE_NUMB =R,LOCATION_NAME,LOC STREET ADDRES3.LOC CITY.L JC_STATE \ 

LOC.ZIPCODE 
show field Wait warning message" 
pi t - " into thisLine 

put 0 into r g_cnt 
pu : 0 into r g_pos. 
put 0 into n gjinc 
put 0 into s D_cnt 
put 0 into s>?_post 
put 0 into st?_hndl 
put 0 into ci :_cnt 
put 0 into ci _post 
put 0 into cri_hndl 
put 0 into crt_fee 
put 0 into crt_rtnrct 
put 0 into indent 
put 0 into int_post 
put 0 into intjwdl 
put 0 into exp_cnt 
put 0 into exp_jx>st 
put 0 into exp_hndl 

U.S. Express Mail EG 532 186 526 US ^ 



3 

j 



put 0 
put 0 
put C 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
put 0 
putO 
putC 
putO 
putC 
putC 
put C 
put 0 
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nto pri_cnt 
nto pri_post 
r/iO p;*i_iiiidi 
nto pri_fee 
nto prijns 
nto pri_rtnrct 
nto par_cnt 
nto par_post 
nto parjindl 
nto par_fee 
into parjns 
nto parjtnrct 
nto thd_cnt 
nto thd_post 
nto thd_hndl 
nto thd_fee 
nto thdjns 

nto thdjlnrct " ... . — , 

nto cash 

nto zipcard 

nto creditcard 

nto reg_gross 

nto crt_gross 

nto int_gross 

nto prLgross 

nto exp_gross 

nto par_gross 

nto thd_gross 

nto stp_gross 



get 0; ^enDBFile("c:\pit-iectVmailfile.dbr) 
get o enDBindexFile( c:\pielect\mailfile.ndx") 
put fi 1 .dDBKey(startD&ie&startTime) into keyFound 
if (kev Found = 3) or (kjyFound = 1) then - next highest match 
whili true 

if (i etDBFieldValuef'MAILDATE^&getDBFieldValueC'MAILT'VIE") :-\ 

t ndDate&endTime as text) then 

baak while 
end if 

put ietDBFieldValue("TRANS_TYPE") into transactionType 

put etDBFieldValue("PMT_TYPE") into paymentTyi *e 

put . etDBFieldValue(TOSTAGE") into postage 

put retDBFieldValuefCERTIFYFEE") into certifiedfea 

put getDBFieldValue("RTN RCTFEE") into returnReceiptFee 

put getDBFieldValue("HANDLE_CHG") into handlingFee 

put getDBFieIdValue("INSUREFEE") into insurancefee 



conditions 

when transactionType = 1 - reg first class 
increment reg_cnt by 1 
increment reg_post by postage 
increment reg_hndl by handlingFee 

when transactionType = 2 « certified letter 
increment crt_cnt by 1 
increment crt_post by postage 
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increment crtjindl by handlingFee 
when transactionType = 3 international 

increment int_cnt by 1 

increment int_post by postage 

increment intjindl by handlingFee 
when transactionType = 4 -- express 

increment exp_cnt by 1 

increment exp_post by postage 

increment expjindl by handlingFee 
when transactionType = 5 - priority 

increment pri_cnt by 1 

increment pri_post by postage 

increment prijindl by handlingFee 

increment prijns by insurancefee 
when transactionType = 6 « parcel post 

increment par_cnt by 1 

increment par_post by postage 

increment parjindl by handlingFee *~ 

increment parjns by insurancefee 
when transactionType = 7 - third class 

increment thd_cnt by 1 

increment thd_post by postage 

increment thd Jindl by handlingFee 

increment thdjns by insurancefee 
when transactionType = 8 - stamp transaction 

increment stp_cnt by 1 

increment stp_post by postage 

Cerement stpjindl by handlingFee 

enc conditions 
con litions 
w :en paymentTyp^ = 4 - cash 

ncrement cash t / postage 
w en paymentType = 2 zip card 

.ncrement zipcaru by postage 
wl en paymentType = 3 credit card 
icrement creditcard by postage 
end conditions 
-- read next 
get nextDBRecordO 
if it <= 0 then 
bre *k while 
end i 
jnd while 
e-id if 

g^t closeAIIDBFilesO 

calculate gross 
pjt (reg_post - regjindl) into reg_gross 
put (crt_post - crtjindl) into crt_gross 
put (int_post - intjindl) into int_gross 
put (exp_post - expjindl) into exp_gross 
put (pri_post - prijindl) into prLgross 
put (par_post - parjindl) into par_gross 
put (thd_post - thdjwdl) into thd_gross 
put (stpjost - stpjindl) into stp_gross 

put (reg_gross + crt_gross + int_gross + exp_gross + prLgross + par_gross\ 
+ thd_gross + stp_gross) into tot_gross 
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put (reg_cnt + crt_cnt + indent + exp_cnt + pri_cnt + par_cnt\ 

+ thd_cnt + stp_cnt) into tot_cnt 
put (piijns + parjns + thdjns) into totjns 
put (reg_post + crt_post + intjDost + exp_post + pri_post + parj>ost\ 

+ thd_post + stp_post) into tot_post 
put (regjindl + crtjhndl + intjindl + expjindl + prijindl + parjindl\ 

+ thdjindl + stp_hndl) into totjindl 

put sysnumberformat into originalFonmat 
set sysnumberformat to "###0" 
format reg_cnt as sysnumberformat 
format crt_cnt as sysnumberformat 
format int_cnt as sysnumberformat 
format exp_cnt as sysnumberformat 
format pri_cnt as sysnumberformat 
format par_cnt as sysnumberformat 
format thd_cnt as sysnumberformat 

formafstp_cnt as sysnumberformat ~ 4 ~ r 

format tot.cnt as sysnumberformat 

set sysnumberformat to "###0.00" 
format reg_gross as sysnumberformat 
format crt_gross as sysnumberformat 
format int_gross as sysnumberformat 
format exp_gross as sysnumberformat 
format pri_gross as sysnumberformat 
ormat par_gross as sysnumberformat 
"ormat thd_gross as sysnumberformat 
ormat stp_gross as sysnumberformat 
i ormat tot_gross *s sysnumberformat 

lormat prijns as sysnumberformat 
f ormat parjns as sysnumberformat 
f «rmat thdjns as sysnumberformat 
f -rmat totjns as >ysnumberformat 

format reg_post as sysnumberformat 
fc 'mat crtjDost as sysnumberformat 
format int_post as sysnumberformat 
fo mat exp_post as sysnumberformat 
fo mat pri_post as sysnumberformat 
fo mat par_post as sysnumberformat 
fo mat thd _post as sysnumberformat 
format stpjDost as sysnumberformat 
format tot_post as sysnumberformat 

format regjindl as sysnumberformat 
format crt_hndl as sysnumberformat 
format intjindl as sysnumberformat 
format expjindl as sysnumberformat 
format prijindl as sysnumberformat 
format parjindl as sysnumberformat 
format thdjindl as sysnumberformat 
format stpjindl as sysnumberformat 
format totjindl as sysnumberformat 
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format cash as sysnumberformat 
format zipcard as sysnumberformat 
foi rnai crduucard as sysnumberformat 

set sysnumberformat to originalFormat 

********** Printing Activity Report ************ 
put (ansitochar(27) & "A33" & ansitochar(13) & " ZIPSTER PLUS" & CRLF\ 

& ansitochar(27)& M A22") into thisLine 
send printReceiptLine thisLine 

step i from 1 to 25 

put (ansitochar(176)) into thisLine 

send printReceiptLine thisLine 
end step 

put (CRLF & CRLF & ansitochar(27) & "A22" & " ACTIVITY REPORT' &\ 
CRLF) into thisLine 

send printReceiptLine thisLine ^ 
put (ansitochar(27) & "A11" & CRLF) into thisLine 
send printReceiptLine thisLine 

put ("LOC. # : " & MACHINEJMUMBER & CRLF & " " & LOCATION NAME & CRLF & " 
"&\ 

LOC_STREET_ADDRESS & CRLF & " " & LOC CITY & " & LOC STATE & 

" &\ 

LOC_ZIPCODE & CRLF) into thisLine 
send printReceiptLine thisLine 

pu (CRLF & "BEGINNING: ENDING:' 1 ) into thisLine 

se -d printReceiptLine thisLine 

fomat date startDa ; e as "mm/dd/yy" from "yy/mm/dd M 

for nat date endDat j as "mm/dd/yy" from "yy/mm/dd" 

put (CRLF & " DAT£: " & startDate & " "4 "DATE: " &\ 

endDate y into thisLine 
ser J printReceiptLipe thisLine 

put (CRLF & " TIMl£: " & startTime & " " & "TIMP : .: " &\ 

endTime & CRLF) into thisLine 
send printReceiptLire thisLine 

step i from 1 to 50 

pu (ansitochar(220)) into thisLine 

sei d printReceiptLine thisLine 
end tfep 

put (CRLF & "SERVICE P.l.P. GROSS SVC"; into thisLine 

send printReceiptLine thisLine 

put (CRLF & n TYPE QTY POSTAGE INS. CHG FEE" & CRLF) into thisLine 
send printReceiptLine thisLine 

step i from 1 to 50 

put (ansitochar(220)) into thisLine 

send printReceiptLine thisLine 
end step 

put (CRLF & "First Class " & reg_cnt & " " & reg_gross & " -"&\ 

" " & reg _post & " " & regjindl) into thisLine 
send printReceiptLine thisLine 
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put (CRLF & "Certified " & crt cnt & " " & crt _gross & " -"&\ 

" " & crt_post & " " & crt_hndl) into thisLine 
~end printReceiptLine thisLine 

put (CRLF & "Inn Mail " & int cnt & " " & int _gross & " - M &\ 

" " & intjost & " " & irrtjihdl) into thisLine 
send printReceiptLine thisLine 

put (CRLF & "EXP. Mail " & exp_cnt & " " & exp _gross & " - tt &\ 

" 11 & exp_post & " " & expjindl) into thisLine 
send printReceiptLine thisLine 

put (CRLF & "PRI. Mail " & pri_cnt & " " & prLgross & " " &\ 

prijns & " & prijost & " " & prijwdl) into thisLine 
send printReceiptLine thisLine 

put (CRLF & "Parcel Post " & par_cnt & " " & par_gross & " " &\ 

parjns & " & par_post & " " & parjindl) into thisLine 
send printReceiptLine thisLine 

put ^CRLF & "Third Class " & thd cnt & M " & thd_gross & " H &\ 

thd jns & " H & thd_post & " M & thdjindl) into thisLine 
serld FTrintReceiptLine IhisLirie " ~ v * w * 

put (CRLF & "Stamp Books " & stp_cnt & " " & stp_gross & " -"&\ 

" " & stpjost & " " & stp_hndl & CRLF) into thisLine 
send printReceiptLine thisLine 

step i from 1 to 50 

put (ansitochar(196)) into thisLine 

send printReceiptLine thisLine 
end step 

put (CR -F & " Total: " & tot_cnt & " " & tot_gross & " ' &\ 

totjnc & " " & tot_post & " " & totjindl) into thisLine 
send printReceiptLine thisLine 

put (CRI F & CRLF & "CASH =$" & cash & " CREDIT CARD =$" & ere iitcard) into thisLine 
send prii tReceiptLine thisLine 

put (CRL CRLF & ans!tochar(27) & "A22" & ansitocha (13)) into thisLine 
send printReceiptLine thisLine 

step i from 1 to 25 

put (ansitochar(176)) into thisLine 

send printReceiptLine thisLine 
end step 

put (CRLF & CRLF & CRLF & CRLF & CKLF & CI LF & ( ;RLF & CRLF & \ 

ansitochar(27) & "c") into thisLine 
send printReceiptLine thisLine cut the rsceipt 

send updateReceiptCounter 1 
hide field "Wait warning message" 
end 



to handle printTransactionReport startDate.startTime.endDate.endTime 
system 

MACHINE_NUMBER,LOCATION_NAME,LOC_STREET_ADDRESS,LOC CITY.LOC STATE \ 
LOC.ZiPCODE 
put 0 into tot_gross 
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put 0 into num transactions 
put "00/00/00" into holdDate 
Gliow field "Wait warning message" 
- ********** Printing Transaction Report ************ 
put (ansitochar(27) & "A33" & ansitochar(13) & " 2IPSTER PLUS" & CRLF\ 

& ansitochar(27)& "A22") into thisLine 
send printReceiptLine thisLine 

step i from 1 to 25 

put (ansitochar(176)) into thisLine 

send printReceiptLine thisLine 
end step 

put (CRLF & CRLF & ansitochar(27) & "A22" & " TRANSACTION REPORT" &\ 

CRLF) into thisLine 
send printReceiptLine thisLine 
put v ansitochar(27) & "A1 1" & CRLF) into thisLine 
send printReceiptLine thisLine 

put ("LOC. # : " & MACHINE NUMBER & CRLF & " " & LOCATION_NAME & CRLF & " 

" &\ 

LOC_STREET_ADDRESS & CRLF & " " & LOC_CITY & ", " & LOC STATE & 

" &\ 

LOC_ZIPCODE & CRLF) into thisLine 
send printReceiptLine thisLine 



put (CRLF & "BEGINNING: ENDING:") into thisLine 

send printReceiptLine thisLine 
format drte startDate as "mm/dd/yy" from "yy/mm/dd" 
format d*«te endDate as "mm/dd/yy" from "yy/mm/dd" 

put (CRL; " & " DATE: " & startDate & " " & "DATE: " &\ 

endDate) into thisLine 
send printReceiptLine thisLine 

put (CRLI & " TIME: " & startTime & " " & TIME: " &\ 

endTime & CRLF) into thisLine ■ 
send printReceiptLine thisLine 



step i from 1 to 50 

put (ansi*ochar(220)) into thisLine 

send printReceiptLine thisLine 
end step 

put (CRLF & "DATE TIME PMT. TYPE GR 3SS" & CRLF) into thisLine 
send printReceiptLine thisLine 

step i from 1 to 50 

put (ansitochar(220)) into thisLine 

send printReceiptLine thisLine 
end step 

put sysnumberformat into originalFormat 

set sysnumberformat to "###0.00" 

format date startDate as "yy/mm/dd" from "mm/dd/yy" 

format date endDate as "yy/mm/dd" from "mm/dd/yy" 

get openDBFile("c:\pielect\mailfile.dbf') 
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get openDBIndexFiIe("c:\pieIect\mailfile.ndx H ) 
put findDBKey(startDate&startTime) into keyFound 
if (keyFound = 3) or (keyFound = i) then - next highest match 
while true 

if (getDBFieldValue("MAILDATE")&getDBFieldValue( M MAILTIME") >\ 

endDate&endTime as text) then 

break while 
end if 

put getDBFieldValue( H MAILDATE") into mailDate 
put getDBFieldValue("MAILTIME") into mailTime 
put getDBFieldValue("TRANS_TYPE") into transactionType 
put getDBFieldValue("PMTTYPE") into paymentType 
put (getDBFieldValue("POSTAGE")) into gross # 
conditions 
when paymentType = 4 

put "CASH " into paymentString 
when paymerftType = 2" 

put "ZIPCARD" into paymentString 
when paymentType = 3 
put "CREDIT " into paymentString 
end conditions 
conditions 
when transactionType = 1 

put "1ST CLASS MAIL" into transactionString 
when transactionType = 2 

put "CERTIFIED MAIL" into transactionStrinf: 
when transactionType = 3 

put "INT'L MAIL " into transactionString 
when transactionType = 4 

put "EXPRESS MAIL " into transactionStrinc 
when transactionType = 5 

put "PRIORITY MAIL " into transactionString 
when transactionType = 6 

put "PARCEL POST " into transactionString 
when transactionType = 7 

put "3RD CLASS MAIL" into transactionStrin£ 
when transactionType = 8 
put "STAMP BOOKS " into t» ansactioi String 
end conditions 

increment tot_gross by gross 
increment numjransactions by 1 
- print entry 

if (holdDate <> mailDate as text) then 
if (holdDate <> "00/00/00") then 
put mailDate into holdDate 

put (CRLF & " ") into thisLine 

send printReceiptLine thisLine 
end if 

put mailDate into holdDate 

format date mailDate as "mm/dd/yy" from "yy/mm/dd" 
else 

put " " into mailDate 
end if 

format gross as sysnumberformat 
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put (CRLF & mailDate &" " & mailTime & " " & paymentString &\ 

" " & transactionString & " "& gross) into thisLine 
send printReceiptLine thisLine 

get nextDBRecordO 
if it <= 0 then 
break while 
end if 

end while 

put (CRLF & " ") into thisLine 

send printReceiptLine thisLine 

format tot_gross as sysnumberformat 

set sysnumberformat to "###0" 

format numjransactions as sysnumberformat 

set sysnumberformat to originalFormat 

~» print total" 

put (CRLF & CRLF& " Number of transactions: " & numjransactions &\ 

Total: " & tot_gross & CRLF) into thisLine 
send printReceiptLine thisLine 
end if 

get cioseAIIDBFilesO 

set sysnumberformat to originalFormat 

put (CRLF & CRLF & CRLF & CRLF & CRLF & CRLF & CRLF & CRLF & \ 
ansitochar(27) & "c") into thisLine 

send printReceiptLine thisLine - cut the receipt 

put round((nurnJransactions - 25)/45) + 1 into num^eceipts 
- send updateReceiptCounter numReceipts 

hide field "Wait warning message" 
end 

to han dle printReceiptLine ReceiptString 
put "@REMPRT1" into thisFilo 
openfile thisFile 

put chars 1 to charcount(ReceiptString> of ReceiptString & ansitochar(O) into thisstring 
writeFile thisstring to thisFile 
closeFile thisFile 

end 




SOURCE CODE FOR DEVICE DR' /ERS 




I* METERDRV.C */ 



#include <stdio.h> 
#include <stdlib.h> 
#include <conio.h> 
#include <string.h> 
#include <math.h> 
#include <dos.h> 
#include <fcntl.h> 
#include "windows.h" 
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#include "serial.h" 
#include "meterdrv.h" 

#define ENQ 0x05 
#define STX 0x02 
#define ETX 0x03 

int SendMeterCommand(char far *, char far *, unsigned long, int); 
double rnanual_atof(LPSTR); 
int manual_atoi(LPSTR); 
int fhandle; 

extern unsigned char inputready(int); 

r *w**w***xxxxxxxxxxxxxxxxxxxx******** ************** ********, 

r Function to send a command to Postage Meter and get response back from */ 
r meter. *7 
/* Return Value : 0 -> successful */ 
/* 1 -> failure receiving echo 7 

7* ' ' ~' 2 -> corflmunicatioh problem 7 " 

/* 3 -> no response from meter 7 

int SendMeterCommand(commandJo_send, responsejeceived, respjime, getReply) 

char far *command Jo_send; 

char far *response jeceived; 

unsigned long respjime; 

int getReply; 

{ 

unsigned long start Jime; 

int index=0 f len, ret, resp_counter=0; 

char rec_buf[2]; 

char message_from_meter[20]; 

rec_buf[1] = 0; 

len = lstrIen(command_to_send); 

/* ***** send the command to meter ***** */ 
while (index < len ) 

/* send string to meter with each echo character checked 7 

{ 

Jwrite(fhandle ( &com;nand_to. send[.;idex], 1); 
if(Jread(fhand!e t rec_luf, i) \- \) 

{ 

ret = 2; 
goto leaving; 

} 



/* read each echo character 7 
// while (inputready(fhandle)) 
// Jread(fhandle,rec_buf t 1); 

// startjime = GetTickCountO; 

// while (startjime > (GetTickCountQ - 15) ) /* 15 ms delay 7 



if (getReply == 2) /* drop gate down 7 
{ 

outp(PORT_A, 0x81); // ON meter power + translation cyl. 



index++; 
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start Jime = GetTickCountO; 

while (start Jime > (GetTickCountO - 1000) ) /* 1 Sec delay 7 
outp(PORT_A ( 0x85); // translation cyl. + letter gate + meter power 

} 

if (getReply >= 1) 
{ 

start_time = GetTickCountO; 
while (!(inputready(fhandle)) ) 
{ 

if (start time < (GetTickCountO - respjime) ) 
{ 

ret = 3; 
goto leaving; 

} 

} 

"* /*" ***** receive response from meter ***** */ 
response_received[0] = 0; 
for (;;) 
{ 

message_from_meter[0] = 0; 
index = 0; 

while (message from_meter[inde>] != ETX ) /* receive characters till an ETX 7 
{ 

if(_lread(fhandle l &message_fro,n_meter[index], 1) == 0) 
{ 

ret = 2; 
goto leaving; 

} 

if(_lwrite(fhandle, &message fro;,i_meter[index], -) != 1) 
{ 

ret = 2; 
goto leaving; 

} 

if (message_from„ meter[index] = = STX) 
index = 0; 

else if (message_from_me er[indcx] != ETX) 
index++; 

} 

message__from_met3r[index] =0; 
lstrcat(response_received, m ssage_from_meter); 
if( (message_from_meter[0] 1 = W) ( 
(message_from_meter[0] - = 'W') && (message from_meter[index-1] == '0')) ) 

{ 

ret = 0; 
break; 

} 

} /* for loop 7 

} 

leaving: 
return (ret); 

} 

/*==================================^ 

/* Function to print a stamp strip 7 
r return value: 0 => successfull 7 
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/* 1 => communication problem 7 

/* 2 => failure printing stamp 7 

int export FAR PASCAL stamp_strip_print(amount) 

char FAR 'amount; 
{ 

char cmd_string[24]; 
char meter_reply[7]; 
char correct_response[7]; 
int ret; 

wsprintf(cmd_string, M %c%c5%5s%c", ENQ, STX, amount, ETX); 
wsprintf(correct_response, "G%s'\ amount); 

if( SendMeterCommand(cmd_string, meterj-enly, 3000, 1)) 
return(1); 

if (lstrcmp(meter_reply, correctjesponse)) 

rer= 2) " ^ — 

else 

ret = 0; 
return(ret); 







/* Function to print a stamp strip 


*/ 


/* return value: 0 => successfull 


*/ 


/* 1 => communication problem 


*/ 


1* 2 => failure printing stamp 


*/ 



7 



int export FAR PASCAL stamp_oi Jetter(amount) 

char FAR *amount; 
{ 

char cmd_string[24]; 
char meter_reply[7]; 
char correct_response[7]; 
int ret=0; 

wsprintf(cmd_string, "%c%cJ%5s < 5;iC ,, ) ENQ, STX, amount, ETX); 
wsprintf(correct_recponse, " 3%s\ amount); 

ret = SendMeterCommand(( ,nd_st »ng, meter reply, 60000, 2); 

if(ret == 0 ) 

{ 

if (lstrcmp(meter r eply, cc rect_n sponse)) 
ret = 2; 

} 

outp(PORT_A, 0x80); // trar. National cylinder 
return (ret); 

\ 

/* Function to set date on meter 7 
/* return value: 0 => successfull 7 
/* 1 => communication problem 7 

int _export FAR PASCAL set_meter_date(YearMonthDay) 

char FAR *YearMonthDay; 

{ 
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int ret; 

char cmd_string[24]; 
char meteijreply[5]; 
char ret_string[4]; 

wsprintf(cmd_string, M %c%cV%6s%c" ( ENQ ( STX, YearMonthDay, ETX); 

if( SendMeterCommand(cmd_string, meter_reply, 40000, 1)) 
return(1); 

if (meter_reply[0l == V) 
{ 

lstrcpyn(ret_string, (LPCSTR)&meter_reply[1] ( 4); 
ret = manual atoi(ret_string); 

} 

else 
ret = 1; 

retufn(ret); ~ " ~ 

} 

/* Function to read ascending register 7 
/* return value: 0 => successfull 7 
/* 1 => no response 7 

int _export FAR PASCAL ReadAscendingRegister(regReading) 

char FAR *regReading; 

{ 

int ret; 

charcmd_string[5]; 
char meter_reply[15]; 
char ret_string[4]; 

wsprintf(cmd_string, "%c%cX%c M , E- NQ, STX, ETX); 

if( SendMeterCommand(cmd_strin& meter.reply.2C00, 1)) 

return(1); 
if (meterjreply[0] == 'X') 
{ 

lstrcpyn(ret_string, (LPCST 0&meter_reply[1], 4); 
lstrcpyn(regReading, (LPCS TR)&r <eter_reply[4], 11); 
ret = manual_atoi(.et string ; 

} 

else 

ret = 1 ; 
return(ret); 

)* 

/* Function to read descending register 7 
/* return value: 0 => successfull 7 
/* 1 => no response 7 

int_export FAR PASCAL ReadDescendingRegister(regReading) 

char FAR *regReading; 

{ 

int ret; 

charcmd string[5]; 
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char meterjreply[15]; 
char ret_string[4]; 

wsprintf(cmd_string, M %c%cY%c H , ENQ, STX, ETX); 

if( SendMeterCommand(cmd_string, meterjeply, 3000, 1)) 

return(1); 
if (meter_reply[0] =»= V) 
{ 

lstrcpyn(ret_string, (LPCSTR)&meterjeply[1], 4); 
lstrcpyn(regReading, (LPCSTR)&meter_reply[4] ( 9); 
ret = manual atoi(ret_string); 

} 

else 

ret = 1 ; 
return (ret); 

}* 

I* Function to do automated TMS on meter 7 
/* return value: 0 => successfull */ 
/* 1 => no response */ 



int _export FAR PASCAL AddMoneyToMeter(amount, desRegister) 
char FAR 'amount; 
char FAR *desRegister; 
{ 

int ret; 

char cmd_string[24]; 
char meter_reply[55]; 
char ret_string[4]; 
unsigned long startjime ; 

/* set 0 postage value for letters and then reset postage value */ 
/* temoorary fix for error # 52 during T.VIS */ 
wsprintf(cmd_string, H %c %c200000%c M , ENQ, STX, ETX); 

if( SendI\/ieterCommandiomd_string, metcrjeply, 3000, 0)) 
return(1); 

startjime = GetTi kCour iO; 

while (sta tjime > (GetT, ;kCountQ - 1000) ) /* 1 s delay 7 



wsprintf(cmd_strin!; ( H %c%c0%c", ENQ, STX, ETX); 
if( SendMeterComnand(cmd_string, meterjeply, 2000, 0)) 
return(1); 

startjime = GetTiCKCountO; 

while (startjime > (GetTickCountQ - 1000) ) /* 1 s delay 7 



wsprintf(cmd_string, "%c%cW00000000%8s%c M , ENQ, STX, amount, ETX); 

if( SendMeterCommand(cmd_string, meterjeply, 99000, 1)) 
return(1); 




=7 



if (meterjeply[0] == W) 
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{ 

lstrcpyn(ret_string, (LPCSTR)&meter_reply[1], 4); 
Isircpyn^e^rxfcgibier, (LPCSTRJ&meter^repIyi^, 9); 
ret = manual atoi(ret_string); 

} 

else 

ret = 1 ; 
return(ret); 

} 

/* manual_atof work the same as the C function atof. */ 

double manual_atof(LPSTR Float_String) 

int i=0, len ( done=0; 

double ret_val=0.0 ( dec_val=1.0, neg=1.0; 

len = 1$trten(FloarSlring); ~ 

while (Float_String[i]==' * && i<len) 
i++; 

if (i>=len) 
return ret_val; 

if (Float_String[i]=='-') { 
neg=-1.0; 

} 

while (Float_String[i]!=7 &i i<len) { 

if (Float_Sinng[i] < , 0' || Float_String[i]> , 9 , ) 
return neg*ret_val; 

ret_vat = 10.0*ret_val+(do ibleXFIoaLStringM-'O'); 

} 

if (i>=len) 
return neg*:et_val; 

i++; // Skip the decir al poii t 

while (i<len) { 

if (Float_String[i] < *0 || Float^ring^^) 
return neg*ret_val; 

dec_val = dec_val/10.0; 

ret_val = ret_vai+((double)(FloaLString[i]- , 0 , ))*dec_val; 
i++; 

} 

return neg*ret_val; 

> 
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I * * / 

int manuaLatoi(LPSTR lnt_String) 
{ 

return (int) manual_atof(lnt_String); 

} 

** ** ** * *** ** * « >* *****, 

r FUNCTION: WEP(int) 7 

r PURPOSE : Performs cleanup tasks when the DLL is unloaded. WEPO is 7 

/* called automatically by Windows when the DLL is unloaded (no */ 

/* remaining tasks still have the DLL loaded). It is strongly */ 

/* recommended that a DLL have a WEPO function, even if it does 7 

/* nothing but returns success (1), as in this example. */ 

/ " * * * * ** * * "V 

int _export FAR PASCAL WEP (bSystemExit) 

int bSystemExit; 

{ 

Jclose(fhandle); 

returrt(1); ~ • . ~ . - - 

} 

/ ™* **«7 

/* FUNCTION: LibMain(HANDLE, WORD, WORD, LPSTR) 7 

/* PURPOSE : Is called by LibEntry. LibEntry is called by Windows when 7 

/* the DLL is loaded. The LibEntry routine is provided in */ 

/* the LIBENTRY.OBJ in the SDK Link Libraries disk. (The 7 

/* source LIBENTRY.ASM is also provided.) 7 

/* 7 

/* LibEntry initia izes the DLL's heap, if a HEAPSIZE value is 7 

I* specified in th 3 DLL's DEF file. Then LibEntry calls */ 

/* LibMain. The LibMain function below satisfies that call. */ 

/* 7 

/* The LibMain f action should perform additional initialization 7 

r tasks required oy the DLL. In tl is example, no initialization 7 

/* tasks are requ -ed. LibMain should return a value of 1 if 7 

/* the initializatio t is successful. 7 

int export FAR PASC AL LibMain(hModule, wDataSeg, cbHeapSize, IpizCmdLhe) 

HANDLt: hModuie; 
WORD wDataf eg; 
WORD cbHeapSize; 
LPSTR IpszCnrv Line; 
{ 

fhandle = Jop. n("@F EMPRT4", OFJREAD WRITE); 
return 1 ; 

} ajlj la a ajl ^ x j ljlxjlx ix xx ^ ^ 

/'BILLDRV.C 7 

#include <stdio.h> 
#include <stdlib.h> 
#include <conio.h> 
#include <string.h> 
#include <math.h> 
#include <dos.h> 
#include <fcntl.h> 
#include "windows.h" 
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#include "dosio.h" 
#include "billdrv.h" 



unsigned char get_check_sum(char far *); 
int sendBAMessage(char far*); 

int receiveBAMessage(charfar*); 

unsigned int readDataBytes(unsigned int, char far *); 

int fhandle; 

unsigned int * fileStatus; 
unsigned char ackNumber; 



r READDATABYTES 7 
/* If the input is ready, read data from the handle " */ 
r Return : 0 -> input buffer empty 7 
/* numBytes -> successful 7 



unsigned int readDataBytes(numBytes, inpBuffer) 
unsigned int numBytes; 
char far *inpBuffer; 
{ 

unsigned long start Jime; 



startjime = GetTickOountO; 

while (startjime > (G etTickCountO - 250) ) /* 250 mSec time out 7 
{ 

if (inputready(fhana.e)) 
retum(readf(fhant ie, numBytes, in^Buffer, fileStatus)); 

} 

retum(O); 

} 

V 

/* GET_CHECK_SUM 7 
/* Checksum is caiculaa ed in all bytes between the STX and the ETX 7 
r (excludingthe STX am ! the ETX). The calculation is performed by xor'ing 7 
r the bytes. 7 

unsigned char get check_sum(buff) 

char far *buff; 

{ 

unsigned char cLksum; 

chksum = 0; 
buff++; //skip STX 

chksum A = *buff- +; // length byte can be same as ETX also 
while((*buff) I=EDg 
chksum A = *bu\"f++; 
retum(chksum); 

} 

/* Function to send a command to Bill Acceptor 7 

/™ *** ™™ *~* . / 

int sendBAMessage(commandJo_send) 

char far *command_to_send; 

{ 
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unsigned char len, msgTypeAndAckNum, checksum; 
char cmd_string[128],chkString[2]; 
cfcaf f! uai i bu f[2 j ; 

len = (unsigned char)(_fstrlen(command_to_send) + 5); 
msgTypeAndAckNum = 0x10 + ackNumber; 

wsprintf(cmd_string, "%c%c%c%s%c", STX t len, msgTypeAndAckNum, command to send, 
ETX); 

checksum = get_check_sum(&cmd_string[0]); 
wsprintf(chkString, ,,0 /oc", checkSunri); 
_fstrncat(cmd_string,chkString,1); 

while (inputready(fhandle)) 
readf(fhandle, 1, flush_buf, fileStatus); //flush.the buffer 

if(writef(fhandle, len, cmd_string, fileStatus) != len) 

return(ICA_SEND_FAILED); 
else"' '"" " ■ — 

return(SEND_GOOD MSG); 
} ^ 

/* Function to receive a message from Bill Acceptor V 
y**^^ ............. .... .. . ........... . 

int receiveBAMessage(messageReceived) 

char far *messageReceived; 

{ 

int index=0, len; 

unsigned char cl.ksum,inpByte=0 msgType; 

if(readDataBytes (1 , &inpByte) != ") 

return(ICA_Rt CEIVE_FAILEQ * 
if (inpByte == EN.Q) // ENQ rece ved from bill acceptor 

retum(RCV_Ef QJRCVD); 
if(inpByte != ST> f .; 

return(RCV_B/ D_STX); 

// receive a regular message from bill acceptor 



if(readDate 3ytes( , &chksum) != 1) //get length byte 
■etum(IC \_RE(;EIVE_FAILED); 

len = (int) (c iksum - 5); //extract length byte; 
if (len != R( V_DATA_LENGTH) 
return(RCA/_BAD_LEN); 

if(readDatal iytes(1 , &msgType) != 1) //get length byte 

return(ICA_RECEIVE_FAILED); 
chksum = chksum A msgType; 

if(readDataBytes(len ( messageReceived) != (unsigned int)len) //get the messaage 

return(ICA_RECEIVE_FAILED); 
for (index=0; index<len; index++) 

chksum = chksum A messageReceived[index]; 

if(readDataBytes(1 , &inpByte) != 1) // get and check ETX 
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return(ICA RECEIVE FAILED); 
if(inpByte!=ETX) 

retu r.' (RC V_BAD_ETX) ; 

if(readDataBytes(1 , AinpByte) != 1) // get checksum byte 

return(ICA_RECEIVE_FAILED); 
// verify received checksum 
if (inpByte != chksum) // bad checksum 

retum(RCV_BAD_CHECKSUM); 

if ((msgType & OxOF) != ackNumber) // wrong ACK number 

return(RCV_BAD_ACK_NUM); 
ackNumber A = 1 ; // toggle ACK number because a good response received 
if ((msgType & OxFO) != 0x20) // wrong message type 

return(RCV,BAD_MSG_TYPE); 
return(RCV_OOOD_MSG); 
} # 

/* Function to check the bill acceptor state change */ 
/* return value: 0 => no state change */ 
/* 1 => ENQ received */ 

int export far pascal BAStateChanged(void) 

{ 

char rec_buf[3]; 



rsc_buf[1] = 0; 

r jeadDataBytes(l, rec buf) != 1) 

retum(ICA_RECEIVE~FAILED); 
it (rec_buf[0] = ENQ) // ENQ received from bill acceptor 

return(RC V_ENQ_RCVD) ; 
e se if(rec_buf[0] ™ STX) 

return (RC V_UN;:iXP_DATA) ; 
e, >e 

ieturn(RCV_BAD_STX); 

} 

/*==:;============■==:======:==============:==:=:===== ,===========:====*/ 

/* Function to enable the bill acceptor '/ 
/* ret .rn value: 0 => successfull */ 
/* 1 => no response */ 

int export far pascal BAAcceptEnable(BAStatus) 

char far *BAStatus; 
{ 

char BAcommandString[50]; 
unsigned long startjime; 
int retValue; 

startjime = GetTickCountO; 

wsprintf(BAcommandString ( "%c%c%c H f (ONE_DOLLAR+TWO_DOLLAR+FIVE_DOLLAR+ 
TEN_DOLLAR+TWENTY_DOLLAR) f // Byt-0 

(SPECIALJNT_BIT+SECURITY_BIT+BIDIRECTION_BIT+ESCROW_ENABLE), // 

Byte-1 

(NOPUSH BIT)); // Byte-2 

for(;;) 
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{ 

retValue = sendBAMessage(BAcommandString); 

if (retValue ™ SEND GOOD MSG) 

{ 

retValue = receiveBAMessage(BAStatus); 
if (retValue == RCVJSOODJVISG) 
break; 

} 

if (startjime < (GetTickCountO - 5000) ) /* 5 Sec delay */ 
return(retValue); 

} 

) _ _ 

/* Function to disable the bill acceptor % */ 

/* return value: 0 => successful! 7 
/* 1 => no response 7 

/*=====:==:=======:============================================:===*/ 

int export far pascal BAAcce'ptDisable(BAStatus) 

char far *BAStatus; 
{ 

char BAcommandString[50]; 
unsigned long startjime; 
int retValue; 

start Jime = c3etTickCountO; 

wsprintf(BAcrmmandString t "000"); // Byte-2 

for (;;) 

{ 

retValue = sendBAMessageiBAcommandString); 

if (retValue SEND_GOOP_MSG) 

{ 

retValue - receiveBAMessjge(BAStatus); 
if (retValu < == RCV_GOOH_MSG) 
break; 

} 

if (startjime < (GetTickCountO - 5000) ) /* 5 Sec delay 7 
retu,n(retValue); 

} 

} 

/*======= ,==== :=========================================! ===== .=*/ 

r r unction to stat x a bill in bill acceptor 7 
/* return ue: 0 * > successfull 7 
/* 1 => n * response 7 

/*=======:^=====================================================V 

int expor? far pascal BAStackBill(BAStatus) 

char far *B/%Status; 
{ 

char BAcommandString[50]; 
unsigned long startjime; 
int retValue; 

startjime = GetTickCountO; 

wsprintf(BAcommandString l "%c%c%c ,, l (ONE_DOLLAR+TWO_DOLLAR+FIVE_DOLLAR+ 
TEN_DOLLAR+TWENTY_DOLLAR), // Byt-0 

(SPECIALJNT_BIT+SECURITY_BIT+BIDIRECTION_BIT+TAKEJT_BIT) t // Byte-1 
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(NOPUSH_BIT)); // Byte-2 

for(;;) 

r 
I 

retValue = sendBAMessage(BAcommandString); 

if (retValue == SEND_GOOD_MSG) 

{ 

retValue = receiveBAMessage(BAStatus); 
if (retValue == RCVJ300DJVISG) 
break; 

} 

if (start Jime < (GetTickCountO - 5000) ) /* 5 Sec delay */ 
return(retValue); 

} 

^ L 

/* Function to check state of bill acceptor 7 
/* return value: 0 => idling 7 

/* - l=> accepting " 7 

/* 2 => escrowed 7 

/* 3 => stacking 7 

/* 4 => stacked 7 

/* 5 => returning 7 

/* 6 => returned 7 

/* == ==== = ==== = === ==== ==========^ 

int export far pascal BACheckState(statusByte) 

unsigned char statusByte; 
{ 

int retValue; 

if (statusByte * IDLE_BIT) 

retValue = 0 
if (statusByte ACCEPTING_BIT) 

retValue =1 
if (statusByte L ESCROWED_BIT) 

retValue = 2 
if (statusByte & STACKING.BIT) 

retValue = 3; 
if (statusByte & STACKED_BIT) 

retValue = 4; 
if (statusByte & RETURNING_BIT) 

retValue = 5; 
if (statusByte & RETURNED_BIT) 

retValue = 6; 
return(retValue); 



} 



* Function to check stacker of bill acceptor 7 
return value: 0 => cheated 7 

1 => bill rejected 7 

2 => bill jamed 7 

3 => stacker full 7 

4 => lockable removal cassette present 7 

5 => paused 7 



=7 



int export far pascal BACheckStacker(statusByte) 

unsigned char statusByte; 
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{ 

int retValue; 

if (statusByte & CHEATED_BIT) 

retValue = 0; 
if (statusByte & REJECTED_BIT) 

retValue = 1 ; 
if (statusByte & JAMMED_BIT) 

retValue = 2; 
if (statusByte & STKR_FULL_BIT) 

retValue = 3; 
if (statusByte & LRC_ATTACH_BIT) 

retValue = 4; 
if (statusByte & PAUSED_BIT) 

retValue = 5; 
return(retValue); 

} 

/* Function to check bill value in acceptor */ 
/* return value: 0 => unknown */ 



/* 


1 => $ 1 


*/ 




/* 


2=>$2 


*/ 




/* 


5=>$5 


*/ 




r 


10 => $ 10 


*/ 




/* 


20 => $ 20 


*/ 




1* 


50 => $ 50 


*/ 




r 


100 =>$100 


*/ 




i* 


101 => powe -up 


*/ 




r 


102 => invalM command 


*/ 




r 


1 03 => failure or acceptor is in a fault mode */ 




/*==■- 







int e .port far pascal L ACheckBillValue(statusByte) 

unsigned char statusByi?; 
{ 

int re Value=0, denVa-ue; 

den V due = (statusByt3 & RCV_DENOM.MASK)»3; 

if (denValue == DEN_ONE) 

retV Jlue = 1; 
alse if (denValue == DENJWO) 

retV due = 2; 
else if ^denValue == DEN.FIVE) 

retValue = 5; 
olse if (denValue == DENJTEN) 

retValue = 10; 
3lse if (denValue == DENJTWENTY) 

retValue = 20; 
else if (denValue == DEN_FIFTY) 

retValue = 50; 
else if (denValue == DEN_HUNDRED) 

retValue = 100; 

if (statusByte & POWER_UP_BIT) 

retValue = 101; 
if (statusByte & I N VALI D_C M D_B IT) 
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retValue = 102; 
if (statusByte & FAILURE_BIT) 
reiValue = 103; 

return(retValue); 

} . 

y* ****** ******* ** ********* * A *** * ******* ********************* ****** *** ******* * j 

/* FUNCTION: WEP(int) 7 

/* PURPOSE : Performs cleanup tasks when the DLL is unloaded. WEPO is 7 

/* called automatically by Windows when the DLL is unloaded (no 7 

/* remaining tasks still have the DLL loaded). It is strongly 7 

/* recommended that a DLL have a WEPO function, even if it does 7 

/* nothing but returns success (1), as in this example. 7 

int far pascal WEP (bSystemExit) 

int oSystemExit; 

{ 

cl6seT(fliandle, fiieSlatus); 
return(1); 

} x xjljlxxxijl t 

/* FUNCTION: LibMain(HANDLE, WORD, WORD, LPSTR) 7 

/* PURPOSE : Is called by LibEntry. LibEntry is called by Windows when 7 

/* the DLL is loaded. The LibEntry routine is provided in 7 

/* the LIBENTRY.OBJ in the SDK Link Libraries disk. (The 7 

/* source LIBENTRY.ASM is also provided.) 7 

/* 7 

/* LibEntry initializes the DLLs heap, if a HEAPS ZE value is 7 

/* specified in the DLL's DEF file. Then LibEntry ;alls 7 

/* LibMain. The LibMain function below satisfies :hat call. 7 

/* 7 

/* The LibMain function should perform additional initialization 7 

/* tasks required by the DLL. In this example, no nitialization 7 

/* ;asks are required. LibMain should return a valise of 1 if 7 

/* ihe initialization is successful. 7 

y******ft*» \ ** * *** * * *** * ************** ************** * ** * ************ -***********y 

int far pescal LibMain(hModule, wDataSeg, cbHeapSize IpszCmdLine) 

HANDLE hModule; 

WORD wDataSeg; 

WORD cbHeapSize; 

LPSTR IpszCmdLine; 

{ 

unsigned int deviceMode; 

fhandle = openf(0_RDWR | 0_BINARY, *'@REiVIPRT3 M ( fileStatus); 

/* ***** send the command to meter ***** 7 
deviceMode = getdeviceinfo(fhandle ( fileStatus;; 
setdeviceinfo(fhandle, (deviceMode | 0x20), fileStatus); 
ackNumber = 0; 
return 1 ; 

} 

j ~to H A A A A ft A A A A AAA AAA A A AAA A A A AAA AAA AAAAAAAAAAAAAAAAAAAl 

/* ZIPFUNCT.C 7 
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#include 
include 
#inc!ucjc 
#include 
#include 
#include 
#include 
#include 
#include 
#include 



<stdio.h> 

<stdlib.h> 

^conio.h> 

<string.h> 

<math.h> 

<dos.h> 

<fcntl.h> 

"windows.h" 

"serial.h" 

"zipfunct.h" 



#define PO_PO 0 
#define PO PO SS 
#define PO AD_AM 
#definePO_AD PM 
#define PO AO SS 



I* PO to PO Mon-Fri */ 

1 /* PO to PO Sat/Sun. */ 

2 /* PO to Add morning delivery 

3 /* PO to Add afternoon delivery 

4 /* PO to Add Sat/Sun */ 



void m6tor_c(int, int); 

unsigned char read_scalereg(unsigned char); 

void write_scalereg(unsigned char, unsigned char); 

void manual_fcvt(double Float_Value, int Digits, int Precision, 

LPSTR Float.String); 
double manual_atof(LPSTR Float_String); 
ii'.t manual_atoi(LPSTR lnt_String); 
extern unsigned char outputready(int); 
unsigned char get_weight(unsigned int FAR*, unsigned char); 

ci ar Image=0x00; 

cl ar Mask_table[8i = { 0x01, 0x02, 0x04, 0x08. 0x10, 0x20, 0x40, 0x80}; 
in sr.dr; 



st uct 



input device table 



7 



i 



unsigned int aJdr; 

char mask; 

char dummy; 

DI_TABLE[33] = { {0, 0, 
{646,0x01,0}, 
{646, 0x02, 0}. 
{646, 0x04, 0}, 
{646, 0x08, 0}, 
{646, 0x10, 0}, 
{646, 0x20, 0}, 
{646, 0x40, 0}, 
{646, 0x80, 0), 

{647, 0x01, 0}, 
{647, 0x02, 0}, 
{647, 0x04, 0}, 
{647, 0x08, 0}, 
{647. 0x10, 0}, 
{647, 0x20, 0}, 
{647, 0x40, 0}, 
{647, 0x80, 0}, 



0}. 

/*W_3_5BY8 
/*W_4_1BY8 
/*W_5_1BY2 
/*W_6_1BY4 
/* CLAMP HOME. 
/* Window Home 
/* Package forward sensor */ 
/* Package Reverse sensor *.' 



7 
7 
7 
7 



7 



7 



7 
7 



/*L_5_1BY2 
r L_6_3BY4 
/*L_9_0BY0 7 
/*L_9_1BY2 7 
/*L_10_1BY2 7 
r Flip plate forward sensor 7 
f* Flip plate reverse sensor 7 
I* Banner units 7 



{654, 0x01, 0}, r Unused 7 
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{654, 0x02, 0}, 
{654, 0x04, 0}, 
{654, 0x08, 0>, 
{654,0x10,0}, 
{654. 0x20, 0}, 
{654, 0x40, 0}, 
{654, 0x80, 0}, 

{655,0x01,0}. 
{655, 0x02. 0}, 
{655. 0x04, 0}, 
{655, 0x08, 0}, 
{655, 0x10,0}, 
{655, 0x20, 0}. 
{655, 0x40. 0}. 
{655. 0x80, 0} }; 

/* 7 

/* NAME : WRITEJDUTPUT - Write a digital output 7 

/* AUTHOR : Celestine Vertical */ 

/* DATE WRITTEN : 07-Nov-1 990 */ 

r DATE REVISION : 7 

/* PURPOSE ; To provide a procedure to change the state of a given 7 

/* digital output device. 7 

/* MODEL : This procedure uses direct control register accessing 7 

/* using the library calls inp and outp. The current 7 

/* state of devices connected to the sam 3 port are stored'/ 

/* in a disk file. / 

/* VERSION :1.1 (Release 1, Version 1) 7 

/* HISTORY : NUMBER DATE RSE DESCRIPTION 7 

/* Original 07-Nov-90 Designer Original Release 7 

/* Original 19-Jun-92 JPHyltin Windows DLL Version v 

/* Betac Ccrp. 7 

/* AGREEMENTS : Development by: Designer (0 '-Nov-90) 7 

/* Used by: Designer in the sequential Zll 'LUS program 7 

/* REQUIREMENTS : To provide a C interface for iigital output poris in 7 

/* the Scientific Solutions card. 7 

/* DEPENDENCIES : Includes serial.h -ad finition file for sequential 7 

/* procedures for ZIP iTER I 'LUS 7 

/* PARAMETERS : NAME OESCRII TION UNITS 7 

/* device The device number character 7 

/* (devices defired in 7 

/* serial.h like GATE) 7 

/* state The state of device character 7 

/* (ON or OFF, RAISE oi 7 

I* DROP, CLOSE or OP EN) 7 

/* reverse Reverse logic or not character 7 

/* ABSTRACT : This procedure can be used to change the state of a 7 

/* digital output device 7 

/* PERFORMANCE : Unknown 7 

/* RESTRICTIONS : The Scientific Solutions interface cards should be 7 

/* set to the base addresses given in "serial.h" 7 

r ERRORS PROPAGATED: None 7 

/* ERRORS HANDLED : None 7 

/* SAMPLE CALL : write_output(GATE, RAISE, REVERSE) 7 
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!* Copyright (c) 1990 
/* Pi Electronics Corp. 
/* 9777 W Gulf Bank Rd 
/* Houston, Texas 77040-3113 
/* (713)896-5800 
/* ALL RIGH TS RESERVE D 

jX A A A AAA A A AAA A AAAAAAAAAAAA A AAA A AAA A A A A AAA A AAA AAA A A AAA AA AAAAA AA AAAAAA 

void export FAR PASCAL write_output(device, state, reverse) 

char device, state, reverse; 
{ 

char workdo; 

workdo = Image & (~Mask_tabie[device-1]); 
if (reverse) 

stale = (-state)'&1 ; 
if (state) 

workdo += Mask_table[device-1]; 
Image = workdo; 
outp(PORT_A, workdo); 

} 

/* */ 

/* NAME : READJNPUT - Read a digital input 7 

r AUTHOR : Celestine Vettical 7 

/* DATE WRITTEN : 08-Nov-1 990 7 

I* DATE REVISION : 7 

/* PURPC -SE : To provide a procedure to read the ; rate of a given 7 

/* digital input device. 7 

/* MODEL : This procedure uses direct control regi ster accessing 7 

/* using the library calls inp and outp. The current 7 

/* state of devices connected to the same poi \ are read 7 

/* simultaneously and the given device state ; > extracted7 

I* VERSION : 1.1 (Release 1, Version 1) 7 

/* HISTORY ; NUMBER DATE RSE DESCRIPTION 7 

/* Original 08-Nov-90 Designer Orig nal Release 7 

/* AGREEMENTS : Development by: Designer 08-No '-90) 7 

/* Used by: Designer in the sequential , IPLUS program 7 

/* REQUIREMENTS : To provide a C interface fi r digit*.! input ports in 7 

/* the Scientific Solutions card 7 

/* DEPENDENCIES : Includes serial. h » a definition file for sequential 7 

/* procedures for ZIPSTEK PLUS 7 

r PARAMETERS : NAME DESCRIPTION! UNITS 7 

/* device The device number character 7 

/* (devices defined in 7 

/* serial.h like CLAMP_FLAG) 7 

/* ABSTRACT : This procedure can be used to read the state of a 7 

/* digital input device 7 

/* PERFORMANCE : Unknown 7 

/* RESTRICTIONS : The Scientific Solutions interface cards should be 7 

/* set to the base addresses given in "serial.h" 7 

/* ERRORS PROPAGATED: None 7 

/* ERRORS HANDLED : None 7 
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/* SAMPLE CALL : current state = read_input(CLAMP_FLAG) 
/* 7 

/* Copyright (c) 1990 */ 

/* Pi Electronics Corp. 7 

/* 9777 W Gulf Bank Rd 7 

/* Houston, Texas 77040-3113 7 

/* (713)896-5800 7 

/* ALL RIGHTS RESERVED 7 

/ """«" * * * .. . «.« . « .. * i 

int export FAR PASCAL read_input(device) 

char device; 
{ 

char reading; 

reading = inp(DI_TABLE[device].addr) & DI_TABLE[device].mask; 
if (reading) 

refurn(ON); - - 

else 

retum(OFF); 



At A A A A A A A A A A A A A 



ft A A A A A A A A AAAA *AAAAAAAAAAAAAAA 
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/* Check_Letter : A function to check whether the letter is inserted */ 
/* properly. */ 
/* Return Value: 0 -> correct 
/* 1 -> move to left */ 

/* 2 -> move to front */ 

/* 3 -> not inserted 7 

int _export FAR PASCAL checkjetter(v Did) 
{ 

int left_opto, front_opto; 

left_opto = read_input(LTR_READY); 
r front_opto = readjnput(L_5_1BY2);7 
front_opto = OFF; 

if ( (lefLopto == OFF) && (fronLopto — OFF) ) 
return(O); 

else if ( (lefLopto == ON) && (fro<it_opto == OFF) ) 
return(1); 

else if ( (lefLopto — OF = ) && (fr -nLop o == ON) ) 
return(2); 

else if ( (left_opto == OW && (fro t.optc == ON) ) 
return(3); 

} 



/* 7 

/* NAME : MOVEJVIOTOR - Move a stepper motor 7 

/* AUTHOR : Celestine Vettical 7 

/* DATE WRITTEN : 03-Nov-1 990 */ 

/* DATE REVISION : 7 

/* PURPOSE : To provide a procedure to move a given stepper 

/* motor in the specified direction with the specified 7 

/* parameters for the given number of steps. 7 

/* MODEL : This procedure uses direct control register accessing 7 



7 
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/* using the library calls inp and outp. 7 

/* VERSION : 1.1 (Release 1, Version 1) */ 

/* UiSTORY :NUMBEk DATE RSE DESCRIPTION 7 

r Original 03-Nov-90 Designer Original Release 7 

/* AGREEMENTS : Development by: Designer (03-Nov-90) 7 

/* Used by: Designer in the sequential ZIPLUS program 7 

/* REQUIREMENTS : To provide a C interface for stepper motor controller 7 

/* card from Scientific Solutions. 7 

/* DEPENDENCIES : Includes serial.h - a definition file for sequential 7 

r procedures for ZIPSTER PLUS 7 

r PARAMETERS : NAME DESCRIPTION UNITS 7 

r motorjium The motor number integer 7 

/* numstep Number of steps to move integer 7 

/* jjrate Jump rate integer 7 

/* m_rate Motor rate integer 7 

/• slop The slope integer 7 

/* divisor The slope divisor integer 7 

/* direction * The direction of motion character 7 

/* ABSTRACT : This procedure can be used to move a motor 7 

/* PERFORMANCE : Unknown 7 

/* RESTRICTIONS : The Scientific Solutions interface cards should be 7 

r set to the base addresses given in "serial.h" 7 

/* ERRORS PROPAGATED: None 7 

/* ERRORS HANDLED : None 7 

/* SAMPLE CALL : move_motor(CLAMP t 500, 1, 10, 10, 1, CLOCKWISE) 

/* AJLjLJljlAxj Lj LAAjLj LJlxJLJLJLXjLjLjLjLjLXJLJL|LjLjLjLjLjLXjLMw ' ±xx±Jl ^ , JL XX Jl A Jl A JL 

/* Copyright (c) 1990 7 
/* Pi Electronics Corp. 7 
r 97/7 W Gulf Bank Rd 7 
/* He uston, Texas 77040-3113 7 
/* (7 .3) 896-5800 7 
r ALL . RIGHTS RESERVED 7 

void notor_c(param_code, par_val) 
int param_code; 
int par_val; 



{ 



int k; 

char command; /* stepper motor com nand < ode 
char char_c; /* character co jnt 7 
union 
{ 

int word; 

struct 

{ 

char Isb; 
char msb; 
} Isms; 
}arg; 



switch (param_code) 
{ 

case'G': command = 0x47; /*GO 7 

charge = 0; 
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break; 
case •J 1 : command 

diar_c = 1; 

break; 
case 'R f : command 

charge = 1 ; 

break; 
case 'S': command 

charge = 1 ; 

break; 
case'D': command 

charge = 1 ; 

break; 
case'N': command 

charge = 2; 

break; 
case'+': command 
" ~" char Jo = 0; 

break; 

case command = 0x2D; /* C.C.WISE 7 

char_c = 0; 
break; 

} 

arg.word = par_val; 

outp(sr, 1 58); /* Make S ure Bit #7 Is High 7 

/* I/O & Handshaking w controller 7 
for (k=1 ; k <= (char_c + 2); k++) 
{ 

while (inp(sr) < 1 28) /* Wait "or Bit #7 HIGH 7 

{;} 

switch (k) 
{ 

case 1: outp(dr, command); 
break; 

case 2: outp(dr, charge,; 
break; 

case 3: outp(d., arg.lsn s.lsb); 
break; 

case 4: outp(d , arg.lsn s.msb 
break; 

} 

outp(sr,30); /* Dri fe I/O REQ LOW 7 

while (inp(sr) >= 1 28) /* Wait For Bit #7 LOW 7 

{;} 

outp(sr, 1 58); /* Drive I/O REQ HIGH 7 , 

} 

> ^ ^ ^ • 

void export FAR PASCAL move_sm(motor_num, numstep, L/ate, m.rate, slop, 

divisor.direction) 

int motor_num; /* 1 : clamp 7 
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0x46; /* JUMPRATE 7 

= 0x52; /* RATE 7 

* 0x53; /* SLOPE 7 

= 0x5A; /* DIVISOR 7 

= 0x4E; /* N STEP 7 

0x2B; /* C.WISE 7 
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/* 2 : package door */ 
unsigned int numstep; /* number of steps to move */ 
int Lrate, rn_rate, slop, divisor; 
char direction; /* 1 : clockwise */ 

/* 0 : counter clockwise */ 

{ 

int param_code; 
int par_val; 

outp((SS_2_BASE_ADDR - 1), 0x30); 

switch (motor num) 

{ 

case 1 : 

sr = SS_1_BASE_ADDR +0; 
dr = SS_1_BASE_ADDR +2; 
break; 
case 2: 

sr = SS J_BASE_ADDR +1 ; 
dr = SSJ_BASE_ADDR +2; 
break; 
case 3* 

sr = SS 2_BASE_ADDR +0; 
dr = SS_2_BASE.ADDR +2; 
break; 

case 4i 

sr = SS_2_BASE_ADDR +1 ; 
dr = SS_2_BASE_ADDR +2; 
break; 

} 

if (direction == 0) 

param_code = '+'; 
else 

param_code = 
parj/al = 0; 

motor_c(param_code, par_val); 

param_code = 'J'; 
par_val = Lrate; 
motor_c(param_code, pai _val); 

param_code = 'S'; 
par_val = slop; 
motor_c(param_code, par_val); 

param_code = 'R'; 
par_val = rnjate; 
motor_c(param_code, par_val); 

param_code = 'D'; 
par_val = divisor; 
motor_c(param_code, par_val); 

param_code = 'N 1 ; 
par_val = numstep; 
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motor_c(param_code, par_val); 



paranri__ooJt; - G , 
par_val = 0; 

motor_c(param_code, par_val); 
outp( (SS_2_BASE_ADDR - 1), 0); 

} 



/* 

r 7 

/* NAME : RESET_MOTOR - Reset a stepper motor 7 

r AUTHOR : Celestine Vetticai */ 

/* DATE WRITTEN : 1 1 -Nov-1 990 ' 7 

/* DATE REVISION : 7 

/* PURPOSE : To provide a procedure to reset a given stepper motor 7 

/* MODEL : This procedure uses direct control register accessing 7 

/* using the library calls inp and outp. If the motor is 7 

/* already at the home, move away and then reset 7 

/* VERSION :1.1 (Release 1, Version 1) 7 

/* HISTORY : NUMBER DATE RSE DESCRIPTION 7 

/* Original 11-Nov-90 Designer Original Release 7 

/* AGREEMENTS ; Development by: Designer (1 1-Nov-90) 7 

/* Used by: Designer in the sequential ZIPLUS program 7 

/* REQUIREMENTS : To provide a C interface for stepper motor controller 7 

/* card from Sc.entific Solutions. 7 

/* DEPENDENCIES : Inc ades serial. h - a definition file for sequential 7 

/* procedures for ZOSTER PLUS 7 

/* PARAMETERS : NAN E DESCRIPTION UNITS 7 

/* motor_num The motor number integer 7 

/* ABSTRACT : This pr ocedure can be i sed to reset a motor 7 

r PERFORMANCE : Unl nown 7 

/* RESTRICTIONS : The -Scientific Solutions interface cards should be 7 

/* set to the bast, addresses giver in "serial. h" 7 

r ERRORS PROPAGATED None 7 

/* ERRORS HANDLED : N( ne 7 

/* SAMPLE C ML : reset_.notor(DOOR) 7 

/* ____ 7 

J1t A A A A A A AAA AAA A AAAAAAAAAAA A A AAA A A A A A A A AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A AAA j 

/* Copyright (z) 1990 7 
/* Pi Electronics Corp. 7 
/* 9777 W Gulf Bank Id 7 
/* Houston, Texas 77i 40-31 13 7 
r (713) 896-5800 7 

r ALL RI ?a?aT?a,^ ********* *' 



void export FAR PASCAL reset_motor(motorjium) 

int motor num; 
{ 

char input_flag; 
int addr; 
int delay; 

switch (motor_num) 
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{ 

case 1 : 

addr - SS_1_BASk_A0DR +U; 
inputjlag = L_5_1BY2; 

if (read_input(input flag) ) /* home opto not blocked */ 
{ 

move_sm(motor_num, 15000, 1, 20, 1, 1, 0); 
while ( ( read_input(input flag)) ) /* until blocked */ 
{ 

for(delay=0; delay < 1000; delay++) {;} 

} 

} 

break; 
case 2: 

addr = SS_1_BASE_ADDR +1; 
inputjlag = DOOR.FLAG; 

if (!read_input(input_flag) ) /* home opto not blocked 7 

* { " ' ' 

move_sm(motor_num, 3000, 1, 5, 10, 1, 1); 

while ( !( read_input(input_flag)) ) I* until blocked */ 
{ 

for(delay=0; delay < 1000; delay++) {;} 

} 

} 

break; 

C3S6 3* 

addr= SS_1_BASE_ADDR *0; 
inputjlag = L_6_3BY4; 

if (readjnput(input Jlag) ) / home opto not locked */ 
{ 

move_sm(1, 15000, 1,20, 1,1,1); 

while (( readjnput(input Jag)) ) I* until blc eked */ 

{ 

for(delay=0; delay < 10C ); delay++) {;} 

} 

} 

break; 

} 

outp(addr, 0x8d); 

\ ixx x ^ iii x a XAJLW11 11/ 

r *i 

/•NAME : GET_WEIGHT - Get t e current weight 7 

/•AUTHOR : Celestine Vetti :al 7 

/* DATE WRITTEN : 05-Nov-1 900 */ 

r DATE REVISION : */ 

/* PURPOSE : To provide a | rocedure to get the current weight on a */ 

/* given scale in county. */ 

/* MODEL : This procedure uses direct control register accessing */ 

/* using the library calls inp and outp to get the count */ 

/•VERSION :1.1 (Release 1, Version 1) */ 

/* HISTORY : NUMBER DATE DESCRIPTION */ 

/• Original 05-Nov-90 Designer Original Release 7 

/* AGREEMENTS : Development by: Designer (05-Nov-90) */ 

/* Used by: Designer in the sequential ZIPLUS program 7 

/* REQUIREMENTS : To provide a C interface for the scale board. 7 
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I* DEPENDENCIES : Includes serial. h - a definition file for sequential 7 

/* procedures for ZIPSTER PLUS 7 

!* FARArt/iETERo : NAME DESCRIPTION UNITS 7 

/* scale The scale select control integer 7 

/* register address(SCALEA or 7 

/* SCALEB defined in serial.h) 7 

/* ABSTRACT : This procedure can be used to get the current weight 7 

/* in counts. 7 

/* PERFORMANCE : Unknown 7 

/* RESTRICTIONS : The A to D scale board should be set to the base 7 

/* addresses given in "serial.h" 7 

/* ERRORS PROPAGATED: status = Valid if zero, else scale is unstable 7 

/* ERRORS HANDLED : None 7 

/* SAMPLE CALL : get_weight(SCALEA) 7 

/* 7* 

/* Copyright (c) 1990 7 
/* Pi" Electronics Corp. ~ 7 
I* 9777 W Gulf Bank Rd 7 
/* Houston, Texas 77040-3113 7 
/* (713)896-5800 7 
/* ALL RIGHTS RESERVED 7 
/ * 

/ *"" 

/* read_scalereg(reg_r. jm): Read Scale Board Data 7 

/* 7 

/* Function to read a re jister from the st ale. Passed argument is the 7 

I* register number to bf input. 7 

/* 7 

/* Return: value inp jt from scale bo* rd, char. 7 

unsigned char read_sci !ereg(reg_num) 

unsigned char reg_nurr 

{ 

while (inp(REG. .STA* US) & DEV_BUSY); I* be sure it isnt busy 7 
outp(R£G_COMMAN ), reg_num); I* select the register 7 

while (!np(REG STAT US) & DEV_BUf.Y); /* wait for not busy 7 
return( np(REG CONTROL)); /* return control reg value7 

} ^ 

A A A A A A X A A i A ft ft ft ft ft ft ^ft ft A ft £ A ft ft Aft A ft ft A A Aft A ft A ftftftftftftftftftftftftftftftAft A A ft A Jrirtritlt j 

r write_scalereg( ag_nu n.regdata); Write Scale Board Data */ 

/* 7 

/* Function to writ^ a register from the scale. Passed argument is the 7 

/* register number to be written and the data to write to it. 7 

/* 7 

/* Return: noth ing. 7 

void write_scalereg(reg_num,regdata) 
unsigned char reg_num,regdata; 
{ 

while (inp(REG.STATUS) & DEV_BUSY); /* be sure it isnt busy 7 
outp(REG_COMMAND, reg num); /* select the register 7 

while (inp(REG_STATUS) &DEV_BUSY); /* wait for not busy 7 
outp(REG_CONTROL,regdata); /* update the control reg 7 

return; 
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void export FAR PASCAL init_scale(void) 

{ 

/* initialize the scale board operating parameters 7 

write_scalereg(SEL_CHA_SCAN_RATE,CHA_SCAN_RATE); /* update scan rate 7 

write_scalereg(SEL_CHA_DEAD_BAND,CHA_DEADBAND); /* update the deadband 7 

write_scalereg(SELJDHA_SMOOTH,CHA_SMOOTHj:OEF); /* update smooth coeff. 7 

write_scalereg(SEL_CHB_SCAN_RATE,CHB_SCAN_RATE); /* update scan rate 7 

write_scalereg(SEL_CHB_DEAD_BAND,CHB_DEADBAND); /* update the deadband 7 

write_scalereg(SEL_CHB_SMOOTH,CHB_SMOOTH_COEi=); /* update smooth coeff. 7 

/* Read weight calibration constants 7 
A_Cal_factor = (unsigned int)(read_scalereg(SEL_CHA_MSB_CAL) « 8) + 

read_scalereg(SEL_CHA_LSB_CAL); 
B_Cal_factor = (unsigned int)(read_scalereg(SEL_CHB_MSB_CAL) « 8) + 

" read_scaiereg(SELlCHB_LSB_CAL); ~" ' 

A_Null_weight = (unsigned int)(read_scalereg(SEL_CHA_MSB_NUL) « 8) + 

read_scalereg(SEL_CHA_LSB_NUL); 
B_Null_weight = (unsigned int)(read_scalereg(SEL_CHB_MSB_NUL) « 8) + 
read_scalereg(SEL _CHB_LSB_NUL) ; 

/**** avoid zero divide when s-cale is not calibrated!!! 7 
if (A_Cal_factor == 0) A_Cal_.factor = 1 ; 
if (Blcal~"factor == 0) BJSal factor = 1 ; 

} 



/* Function to read a stable weight in counts from the given scale 7 



unsigned char get_weight(weigh- , scale_num) 
unsigned int FAR *weight; 
unsigned char scalejium; 
{ 

unsigned long startjime.; 
unsigned char stable, scale; 

while (inp(REG_STATU :) & Dl !V_BUSY); /* be sure the scale isnt busy 7 

if (scale num == 1) /* le ler sc le 7 
{ 

scale = SCALEA; 
stable = CHA_STABLE.; 
outp(REG_COMMAND .SCALEA); 

} 



{ 

scale = SCALEB; 

stable = CHB_STABLE; 

outp(REG_COMMAND,SCALEB); 

} 

startjime = GetTickCountO; 

while (inp(REG_STATUS) & DEV_BUSY); 




rA A A * ^ A A^ A A A A AAA A A X A A A A A j 



/* Return value: 0 -> successful 

/* 1 -> unsuccessful (n< t stable) 



7 
7 




else 
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while ( !(inp(REG_STATUS) & stable) && (start Jime > GetTickCountO - 1000) ) 
; /* Read biaius dnu wait until stable reading and not busy */ 

*weight = inpw(REG_DATA); 

if (inp(REG_STATUS) & stable) 
{ /* delay 1/4 second to see that stable remains */ 

startjime = GetTickCountO; 

while ( (inp(REG_STATUS) & stable) && (startjime > GetTickCountO - 250) ); 
} 

if (inp(REG_STATUS) & stable) 

return(O); 
else 

return(1); 

} _ 

yA'^A'A'A A A A'A AA AAA&A A A A AAA A A A A A A A A Aft AA Aft AA AAAAAA#AA*A * AA A AAAAA AAAAA*AA1kAAAAAA*AAy 

/* ZERO_SCALE : Function to zero the scales */ 
/* Return Value : 0 -> successfull 7 
/* 1 -> no stable reading 7 

/* 2 -> letter scale not empty 7 

^A A A ft A A A AAA A AAAAAArihAAAAAAAAAAAAAAAAAA A A AAA A AAA A A A A A A AAA A A A A AAA A A A A A A A A A A A A A A A^ 

unsigned char export FAR PASCAL zero_scale(scale, changeZero) 

unsigned char scale; 
unsigned char changeZero; 
{ 

int loop_cou.it=0, broke_loop,count=1; 
unsigned int curjare, null_w<!t; 

if (scale == * ) /* letter scale 7 

null_wgt = ^JsJullj/veight; 
else 

null_wgt = 3_Null_weight; 

for(;;) 
{ 

loop, count - 0; 

while (get weight(&curjare, scale) != 0) 
{ 

if ( )opj* unt ++ == 200) /* no stable reading after 200 reads 7 
r 'turn(1 ; 

} 

if (ge- weight(&curjare, scale) == 0) /* 2 succesive stable reading *; 
{ 

if (£<os(cur_tare - null_wgt) < 40) 

t*eak; 
if (s;ale == 1) 

{ 

if (changeZero == 1) 

null_wgt = curjare; 
else 

return(2); 

} 

else 

null_wgt = curjare; 
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if (scale ==1) 
{ 

AJ\luil__weight = curjare; 

write_scalereg(SELjCHA_MSB_NUL l (unsigned char)(AJMull_weight » 8) ); 
write_scalereg(SEL_CHA_LSB_NUL,(unsigned char)A_Null_weight); 

} 

else 
{ 

/* getjine_weight(&curjare, scale, 5);*/ 
B_Null_weight = curjare; 

write_scalereg(SEL_CHB_MSB_NUL l (unsigned char)(B_Null_weight » 8) ); 



write_scalereg(SEL_CHB_LSB_NUL,(unsigned , char)B Null_weight); 
} 

return(O); 

} Z—^ xxxxx xxxx XX 

/* Function to read a stable weight in counts from the given scale 7 
/* Return value: 0 -> stable weight counts 7 
/* -1 -> unsuccessful (not stable) 7 

/* +ve -> stable real weight ( when display = 1) 7 



double export FAR PASCAL find_weight(scaLnum, calculated_weight, display) 

unsigned char scal_num; 
char FAR *calculated_webht; 
unsigned char display; 
{ 

unsigned int wt_cnt; 
double wtjb, wt_oz; 
charwt_str[10], oz_str[1-]; 
double 07_part, lb_part; 
unsigned int caijactor, i ull_wgt; 



if (get_weight(&wt_cnt, s ..;aljium) == 0) /* stable reading 7 
{ 

if (displ ly == 0) '* no need to find display weight 7 

return(O); 
else /* calculate real weight 7 
{ 

if (seal num- 1) /* etter scale 7 
{ 

caijactor = A_Cal_factor; 
null_wgt = A Null_weight; 

} 

else 
{ 

caijactor = B_Cal_factor; 
null_wgt = B_Null_weight; 

} 

wtjb = wt cnt - null_wgt; 
if (wtjb > 60000) 

wtjb = 0; /* below null reading, set to zero 7 

else 
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wtjb = wt_lb/cal_facton 
wt_pz = wt_lb*16; 

/* Rate Classifier Mode Display */ 
if (wt_oz <= 16.0) l* less than 1 lb. incl. */ 

wt_oz = wt_oz - 0.03; /* subtract the maintenance tolerance */ 
else if (wt_oz <= 64.0) /* less than 4 lb. incl. */ 

wt_oz = wt_oz - 0.1 2; /* subtract the maintenance tolerance */ 
else if (wt_oz <= 1 12.0) /* less than 7 lb. incl. */ 

wt_oz = wt_oz - 0.2; /* subtract the maintenance tolerance */ 
else r less than 25lb. */ 

wt_oz = wt_oz - 0.4; /* subtract the maintenance tolerance */ 

if (wt_oz < 0) /* avoid negative display */ 
wt_oz = 0.0; 

/*. */ 

/* I am using mariualjcvt instead of the */ 

/* wsprintf function for floating point numbers. */ 
/*. „*/ 

// wsprintf(wt_str, "%6.2T, wt_oz); 

manual_fcvt(wt_oz, 6, 2, (LPSTR) wt_str); 

if (w oz <= 32.0) I* less than or equal to 2 lb. */ 
{ 

if( ( Wt str^KO') <5) && ((wt_str[5]-'0') !=0) ) 
{ 

w _str[5] = '5'; 

w oz = manual_a of(wt_str); 

} 

else if( (wt_str[5]- , 0 1 ) >5 ) 
{ 

wt _str[5] = '0'; 

wt str[4] = wt_str[4j +1 ; 

if( ;>rt_str[4]-'0') > £) 

{ 

wt_str[4] = '0'; 

v ; oz = manual_atof(wt_str) + 1.0; 

} 

els. 

w' oz = manual_atof(wt_str); 

} 

;lse if (wt_oz <= 1 12.0) /* less than 7 lb. 7 

if( (wt.strlSl-'O*) >0 ) 
{ 

wt_str[5] = '0'; 
wt_str[4] = wt_str[4] +1; 
if( (wt_str[4]-'0') > 9) 
{ 

wt_str[4] = '0'; 

wt oz = manual_atof(wt_str) + 1 .0; 

} 
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else 

wt_oz = manual_atof(wt_str); 
else 

wt_oz = manual_atof(wt_str); 

} 

else I* over 7 lb. */ 
{ 

if( (wt_str[5]-'0') >0 ) 
{ 

wt_str[5] = 'O'; 
wt_str[4] = wt_str[4]+1; 
if( (wt_str[4]-'0') > 9) 
{ 

wt_str[4] = '0'; 

wt_oz = manual_atof(wt_str) + 1 .0; 
// wsprintf(wt_str, "%6.2f", wt_oz); _ 

manual_fcvt(wt_oz, 6, 2, (LPSTR) wt_str); 

} 

} 

if( (wt_str[4]-'0') >0 ) 
{ 

wt_str[4] = wt_str[4] + ((wt_str[4]-'0')%2); 

if( (wt str[4]-'0') > 9 ) 

{ 

wt_s1'[4] = 'O'; 

wt_o; = manual atof(wt_str) + 1.0; 

} 

else 

wt_oj = manual_atof(vt_str); 

} 

else 

wt_oz= manual_atof(wt str); 

} 

if ( wt_oz <= 0.05) 
wt_ *z = 0 3; 

wtjb ■■ wt_oz/16.0; 

'/ oz_f irt = n odf(wt_lb, &lb_part); 

/* — */ 

/* A n anual way of performing the modf function. */ 
I* . */ 

lb_par: = (double) ((int)wt_lb); 

oz_pai i = wt_ib-lb_part; // NOTE: Don't need this statement 
// because of next statement 

oz_part = (wtjb - lb_part)*16 ; 

// wsprintf(calculated_weight, "%2d lb %5.2f oz", (int)lb_part, oz_part); 
manual_fcvt(oz_part, 5, 2, (LPSTR) oz_str); 

wsprintf(calculated_weight, "%2d lb %s oz", (int)lb_part, (LPSTR) oz_str); 
if (scal_num == 1) /* letter scale */ 
return(wt_oz); 
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else 
return(wtjb); 

} 

else 



return(-1); 

} 

/* */ 

r *f 

/* manual_fcvt is a float conversion procedure. 7 

/* The parameters are: */ 

r 7 

/* Float_Value - the value to convert to a string. ,7 

/* 7 

/* Digits - the total number of characters in 7 

/* the string, including the decimal 7 

/* • " point and sign. " "*/ 

r 7 

/* Precision - the number of digits after the 7 

/* decimal point to represent. 7 

/* 7 

/* Float_String - the result string. It must be 7 

/* memory set asside by the calling 7 

/* program. 7 

/* 7 



/* There is one known limitation: the number of digits 7 
•'* of resolution < including the digits before the 7 
<* decimal point, must not exceed 38. The subscript 7 
* of the local char array digits_str can be modified 7 
'* as needed for this situation. 7 

7 

* 7 



oid manual Jcvi (double Float_Value t int Digits, int Precision, 
LPSVR Float_String) 

{ 

char digits_str[40]; 

long digits, prec ; sion_multiplier=1L, int_part, float_part; 
'nt i; 

or (i=0;i<Precision;i++) 
precisionjnultiplier *= 1 0L; 

if (FloaLValue*(double)precision_multiplier<0.0) 
digits = (long) (Float_Value*(double)precision_multiplier 0.5); 
else 

digits = (long) (Float_Value*(double)precision_multiplier + 0.5); 

if (digits<0L) { 
lstrcpy(FloaLString, "-"); 
digits = -digits; 

} 

else 

lstrcpy(FloaLString, ,,M ); 
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int_part = digits/precision_mu!tiplier; 
float_part = digits-int_part*precision_multiplier; 

wsprintf(digits_str, "%d'\ int_part); 
lstrcat(Float_String, digits_str); 

lstrcat(Float_String, "."); 

wsprintf(digits_str t "%d" t float_part); 
lstrcat(Float_String, digits_str); 

if (istrlen(Float_String)<Digits) { 

lstrcpy(digits_str, " M ); 

for (i=1 ;i<Digits-lstrlen(Float_String);i++) 
lstrcat(digits_str, " "); 

lstrcat(digits_str, FIoat_String); 

lstrcpy(Float_String, digits_str); 
} ' ~ " ' ~ 

\ xxxxxxxxxxxxxxxxxxxx x xxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

/*- */ 

/* */ 

/* manual atof work the same as the C function atof. */ 
/* */ 

double mani!al_atof(LPSTR Fioat_String) 
{ 

int i=0, ten, done=0; 

double ret_val=0.0, dec_val~1 .0, neg=1 .0; 

len = lstrlen(Float_String); 

while (Float String[i]==' 1 && i<len) 
i++; 

if (i>=. en) 
retur \ ret_val; 

if (Flo-t_Strii g[i]=='-') { 
neg= 1.0; 
i++; 

} 

while (-!oat_String[i]!= , . t && i<len) { 

if (Flcat_String[i] < '0' || FloaLString[il>'9') 
return neg*ret_val; 

ret_val = 10.0*reLval+(double)(FloaLString[i]- , 0'); 
i++; 

} 

if (i>=len) 
return neg*ret_val; 
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i++; // Skip the decimal point 

whWc (i<le/i) { 

if (Float_String[i] < '0' || Float_String[i]>'9') 
return neg*ret_val; 

dec_val = dec_val/10.0; 

ret_val = ret_val+((double)(Float_String[i]-0'))*dec_val; 
i++; 

} 



return neg*ret_val; 



A* A A A A A A A Ar A*AAAAAAAr:AAAAA'AAAAAA A A A/4* A 



} 

/* PRTJ\EADY : Check whether the receipt printer is ready 
/* Return value: 1 -> ready */ 
7* * 0-> not ready */ 

unsigned char_export FAR PASCAL prt_readyO 
{ 

int r_prn; 

unsigned char ret_value; 

r_prn = Jopen("@REMPRTr\ OFJREAD); 
ret_value = outputready(r_prn); 
Jclose(rj)m); 
return(ret_/alue); 



7 



7 

PRINTREC-HIPTUNE : Check whether the receipt printer is «*eady 
* Return valt r. 1 -> ready */ 
0 «> not ready 7 
2 - * communication failure */ 

unsigned char export FAR PASCAL printRereiptLine'tineSt ing, length) 

char FAR *linr String; 

int length; 

{ 

int rj>rn; 

unsigned char ret_value; 

/* r_prn = Jopen("@REMPRT1 H , OF READWRITE);' 
r_prn = Jopen("bobtest.prn M , OFJREADWRITE); 
ret_value = outputready(r_prn); 
if (ret_value = 1) 
{ 

if (length == 0) 

length = Istrlen(lineString); 
if( Jwrite(r_prn, (LPSTR)lineString, length) != length) 
ret_value = 2; 

} 

Jclose(r_prn); 
return(ret_value); 
> _ x m/ 
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r CHECKSUM 7 

/* function figure out check sum of string in buff parameter, */ 

'* 3urriS each byte and maKes it a printable character and returns. 7 

char export FAR PASCAL check_sum(buff) 

char FAR *buff; 
{ 

char total; 
total=0; 

while((*buff) != 7) 

total = total + *buff++; 
total=total + 

total = (total & 0x3f) + 0x20; 
return(total); 

\ 

/ 

/* Function to get the cutoff time for overnight delivery. 7 ~ 

/* Return values : 0 -> off net (no guarantee) 7 

/* 100 -> 2nd day 7 

/* otherwise -> cutoff time in HHMMSS format 7 

/ 

lo ig export FAR PASCAL exp_net(zipcode, servicejype) 

long zipcode; 
inl servicejype; 
{ 

ht fp; 

i it cutoff Jlag; 
i it cutoff jium; 
I *ng cutoff Jime; 
it t mask; 

n ask = 07 « (se vicejype*3); 

ff = Jopen ( n EXPZIP_A.DAT\ OF_READ); 

_.;seek(fp, (zipcods*2), 0); 

Jead(fp, (void Jvjge*)&cutoff Jlag, 2); 

Jclose(fp); 

cl off jium = (cutoff Jlag & mask) » (service Jype*3); 

if :utoff_num != 0) 

{ 

to = Jopen ("EXPTIM_A.DAT", OF_READ); 

Jlseek(fp, (long)((serviceJype*7 + (cutoffjium-1))*4), 0). 

Jread(fp, (void Jiuge*)&cutoff Jime, 4); 

_iclose(fp); 

} 

else 

cutoff Jime =0; 
return(cutoff time); 

} 2, iAmiAAAu 

/* FUNCTION: WEP(int) 7 
/* PURPOSE : Performs cleanup tasks when the DLL is unloaded. WEPO is 7 
/* called automatically by Windows when the DLL is unloaded (no 7 
/* remaining tasks still have the DLL loaded). It is strongly 7 
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/* recommended that a DLL have a WEPO function, even if it does */ 
/* nothing but returns success (1), as in this example. */ 

f* *k * ** **++* . * * ** * * *& **-*ir*± Stint f. / ^*n* * **m~1r*w#**tt-lirirtr****rtt1t*k+m M 

int _export FAR PASCAL WEP (bSystemExit) 

int bSystemExit; 

{ 

return(1); 

} 

/ " ********* * ***** ** * ** ******** ** * * / 

/* FUNCTION: LibMain(HANDLE, WORD, WORD, LPSTR) 7 

/* PURPOSE : Is called by LibEntry. LibEntry is called by Windows when */ 

/* the DLL is loaded. The LibEntry routine is provided in 7 

r the LIBENTRY.OBJ in the SDK Link Libraries disk. (The 7 

/* source LIBENTRY.ASM is also provided.) 7 

/* 7' 

/* LibEntry initializes the DLL's heap, if a HEAPSIZE value is 7 

/* specified in the DLL's DEF file. Then LibEntry calls 7 

/* * LibMain. The LibMain function below satisfies that call. 7 

/* 7 

/* The LibMain function should perform additional initialization 7 

/* tasks required by the DLL. In this example, no initialization 7 

/* tasks are required. LibMain should return a value of 1 if 7 

/* the initialization is successful. 7 

int_export FAR PASCAL LibMain(hModule, wDaiaSeg, cbHeapSize, IpszCmdLine) 

HANDLE hModule; 

WORD wDataSeg; 

W< )RD cbHeapSize; 

LP3TR IpszCmdLine; 

{ 

uturn 1; 

> 

jirk* * ************************* * ******************** * ******* ** * **** * ********* I 
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